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DECLARATION UNDER 37 C.F.R. §1.131 

1 . We are co-inventors of the data correlation and analysis tool described and 
claimed in the above-identified patent application. John Maguire earned a PhD 
in Physics from Boston College and Terry Potter earned his PhD in System 
Science with a major in Computer Science from SUNY Binghamton in 1987. 

2. We invented, programmed and built the data correlation and analysis system of 
the invention prior to July 12, 1995, 

3 . Computer programs for use in the system created prior to July 12,1 995 by and 
under our direction have been retrieved from an old floppy disk. A directory 
listing of these computer programs used in the method and system of the 
invention is submitted herewith as Exhibit A. Under the column entitled 
"modified" are dates that have been redacted, all of which are prior to July 12, 
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1995 indicating that the programs in the form as retrieved were available prior 
to July 12, 1995. 

4. A printout of the retrieved program Modular .has in its form as of prior to July 
12, 1995 is provided herewith as Exhibit B. This printout was made from the 
floppy disk that had been maintained by the company unmodified since prior to 
July 12, 1995. 

5. To facilitate examination of the above-identified patent application, we explain 
in the following paragraphs how our program in Exhibit B corresponds to the 
limitations of claim 49. 

6. The program in Exhibit B was for use in conjunction with a response data 
collection program that collects responses and data from respondents who are 
reacting to viewing a stimulus stream. Commercially available ORTEK meter 
data collection software was used in conjunction with our system prior to July 
12, 1995 to collect response data into one minute flat spreadsheet like files. An 
analog video stimulus signal, would first be processed through a digital 
converter, such as the commercially available Videologic's DVA video 
capture/overlay hardware, into a digital video with 32 frames per second.. The 
digital video is played and shown to the respondents. An initial operation of our 
system thus included "showing the at least one stimulus stream to one or more 
respondents." Response data entered by the respondents was captured by the 
ORTEK meter data collection software. 

7. At Modulel -page 33/34 in SUB LoadVideoFiles2(DBF$), the digitized stimulus 
stream is retrieved and partitioned into time slices that occur at 500 millisecond 
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i 

intervals using form and method fvideo.pnlVidFrame in conjunction with form 
and method f_video.MCIWndl . The time slices in this version are created every 
500 milliseconds as seen in method f_video.MCIWndl(x),TimerFreq=500. 

8. Referring now to Modulel- page 33/34 in SUB LoadVideoFiles2(DBF$), the 
program instructions perform the step of associating stimuli in at least one 
stimulus stream with the time slice in which each stimulus occurs. Individual 
time slices are controlled by a timer which triggers Sub Timerl JTimer in the 
F_Video form. Time slices are used throughout the f_video form and its 
methods such as Sub MCIWndl_positionchange as well as Sub 
PositionControls to associate the stimulus with the time slice in which each 
stimulus occurs. Note that CurAVI is a variable used throughout to identify 
which of the stimulus streams to use. 

9. Referring now to page Modulel -page 20-2 1 SUB DBOPEN(DBF$), the 
program associates responses to the at least one stimulus stream with the time 
slices in which each response is made. In this SUB DBOPEN individual 
responses and AVI digitized Video stimulus streams are associated with the 
same time slices in which each response is made. This Sub DBOpen also uses 
Sub LoadVideoFile2 found in Modulel -page 33/34. The CurAVI variable 
specifies which digitized stimulus stream to use and a timer (Timerl) is used to 
coordinate the reading of the responses which come from the DB with the 
stimulus stream via form and method f_video.MCIWndl . 

10. Referring now to Modulel-pages 18-19 create a new DataBase via Sub 
CreateNewModDB and uses the Sub ImportDIF on page 29 to store and 
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associate the response data to the time slices. The digitized Video stimulus is 
opened in the Sub DBOpen, and the individual image frames are associated and 
stored with the times slices in the fJVideo.MCIWndl method found in Sub 
LoadVideoFiles2 on pages 33-34. These methods and subprograms perform the 
function of storing the associative mapping correlating each of the time slices 
with the stimuli and the responses. The f_Video.MCIWndl method uses a 
timer (Timer 1) to coordinate the time slices of the digitized stimulus stream 
with the responses. 

1 1 . In further support of this showing that the analysis tool and method as claimed 
was created, built and functioned prior to July 12, 1995, Exhibit C is an 
explanatory document illustrating features of the program. The redacted 
revision date on the document is prior to July 12, 1995. The document was 
printed off of the old floppy disk on which the computer programs were found. 

12. On the second page of Exhibit C, it is shown and explained that the record of 
responses can be accumulated and illustrated to the user. Moreover, the cursor 
may click anywhere in the response window time line thereby causing the 
displayed video to move to that point as well. This is only possible because of 
the associative map in which the responses were correlated to the time slices of 
the video stimulus stream. The program can immediately access the digital 
video frames associated with the particular response segment. Exhibit C thus 
confirms that the invention was created and working prior to July 12, 1995. 

13. We each hereby declare that all statements made of our own knowledge herein 
are true and all statements made on information and belief are believed to be 
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true; and further that these statements were made with the knowledge that 
willful false statements and the like so made are punishable by fine or 
imprisonment, or both, under Section 1001 of Title 18 of the United States Code 
and that such willful false statements may jeopardize the validity of the 
application in connection with which this declaration is being submitted to the 
Patent and Trademark Office, or any patent issued thereon. 
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Modulel - 1 

Global VArr ( ) As String 
Global XArr() As String 
Global VCtr As Integer 
Global VidArrO As String 
Global NewDB As Database 
Global TblVar As table 
Global AVILength As Long 
Global NumSecs As Integer 
Global PrevAVITot As Long 
Global NumAVIs As Integer 
Global CurAVI As Integer 
Global VMode As String 
Global AbsPos As Long 
Global TArr(25) As String 
Global MyCmd As String 

Global MaxXl, MaxYl, MaxX2, MaxY2, MaxX3, MaxY3 As Single 
Global MinXl, MinYl, MinX2 / MinY2, MinX3, MinY3 As Single 
Global CurDBPath As String 
Global AVILeadin As Integer 
Global AVILeadout As Integer 
Global GTop, GBot As Integer 
Global MyStdev, MyVar As Single 
Global Dsl As snapshot 
Global Barlnc As Integer 
Global QueryHasBeenRun As Integer 
Global NewFld$ 
Global CancelFlag 

Global DBPath$, DBFile$, DBIniFile$ 

1 STRUCTURE SECTION 

' structures for defining DIBs 
Type BITMAPINFOHEADER MO bytes 

biSize As Long 

biWidth As Long 

biHeight As Long 

biplanes As Integer 

biBitCount As Integer 

biCompression As Long 

biSizelmage As Long 

biXPelsPerMeter As Long 

biYPelsPerMeter As Long 

biClrUsed As Long 

bi CI r Import ant As Long 

End Type 

'Type AVIFILEINFO 

1 dwMaxBytesPerSec 
'dwFlags 
1 dwCaps 
' dwStreams 

'dwSuggestedBuf ferSize 
'dwWidth As Integer 
1 dwHeight As Integer 
1 dwScale 
'dwRate 
' dwLength 
'dwEditCount 

'szFileType As String * 64 
•End Type 

Type Bitraaplnfo 'Varies 

bmiHeader As BITMAPINFOHEADER 
'bmiColors As String * 128 1 Array length is arbitrary; may be changed 

End Type 

Type BITMAPFILEHEADER '14 Bytes 
bfType As Integer 
bfSize As Long 
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bfReserved2 As Integer 
bfOffBits As Long 

End Type 

Type PointAPI 

x As Integer 

Y As Integer 
End Type 

' OpenFileO Structure 

Type OFSTRUCT 

cBytes As String * 1 
fFixedDisk As String * 1 
nErrCode As Integer 
reserved As String * 4 
szPathName As String * 128 

End Type 



Type RECT 

Left As Integer 

Top As Integer 

Right As Integer 

Bottom As Integer 
End Type 

Type PaintStruct 

hDC As Integer 

fErase As Integer 

rcPaint As RECT 

fRestore As Integer 

flncUpdate As Integer 

rgbReserved As Integer 
End Type 

Type Filelnfo 

FilelnfoFormat As String * 1 
FilelnfoName As String * 13 
FilelnfoWidth As Integer 
FilelnfoHeight As Integer 
Filelnf oBitsPixel As Integer 
FilelnfoSizeDisk As Long 
Filelnf oSizeMem As Long 
FilelnfoCompression As String * 20 
FilelnfoViewPerspective As Integer 
FilelnfoOrder As Integer 

End Type 

Global FInfo As Filelnfo 



' Image Format 

'Name of Image 

'Width 

'Height 

' Resolution 

'Bitmap size on disk 

'Bitmap size in memory 

'Compression type 

'View perspective 

'Order RGB/BGR 



Type ChildData 

ValidBitmap As Integer 
Filename As String * 256 
Filelnfo As Filelnfo 
BitmapHandle As Integer 

End Type 

Type FixedFilelnfo '52 bytes 
Signature As Long 
StrucVersion As Long 
FileVersionMS As Long 
FileVersionLS As Long 
ProductVersionMS As Long 
ProductVersionLS As Long 
FileFlagsMask As Long 
FileFlags As Long 
FileOS As Long 
FileType As Long 
FileSubType As Long 
FileDateMS As Long 
FileDateLS As Long 
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Type HelpWinlnfo ' size=12 + length of rgchMember 

wStructSize As Integer 

x As Integer 

Y As Integer 

dx As Integer 

dy As Integer 

wMax As Integer 

rgchMember As String * 16 
End Type 

Type TextMetric 

tmHeight As Integer 

tmAscent As Integer 

tmDescent As Integer 

tmlnternalLeading As Integer 

tmExternalLeading As Integer 

tmAveCharWidth As Integer 

tmMaxCharWidth As Integer 

tmWeight As Integer 

tmltalic As String * 1 

traUnderlined As String * 1 

tmStruckOut As String * 1 

tmFirstChar As String * 1 

tmLastChar As String * 1 

tmDefaultChar As String * 1 

tmBreakChar As String * 1 

tmPitchAndFamily As String * 1 

tmCharSet As String * 1 

tmOverhang As Integer 

tmDigitizedAspectX As Integer 

tmDigitizedAspectY As Integer 
End Type 



1 DECLARATIONS SECTION — ; 

Declare Function WinHelpByNum% Lib "USER" Alias "WinHelp" (ByVal hWnd%, ByVal lpHelpFile$, ByVal 

wCommand%, ByVal dwDataS) 
Declare Function WinHelp% Lib "USER" (ByVal hWnd%, ByVal lpHelpFile$, ByVal wCommand%, ByVal dwD 
ata As Any) 

Declare Function FindWindow% Lib "USER" (ByVal lpClassName As Any, ByVal lpWindowName As Any) 
Declare Function FindWindowBystring% Lib "USER" Alias "FindWindow" (ByVal lpClassName$, ByVal Ip 
WindowName$ ) 

Declare Function GetTopWindow% Lib "USER" (ByVal hWnd%) 

Declare Function ChildWindowFromPointByNum% Lib "USER" Alias "ChildWindowFromPoint" (ByVal hWnd% 
, ByVal Pnt&) 

Declare Function GetWindow% Lib "USER" (ByVal hWnd%, ByVal wCmd%) 

Declare Function GetWindowText Lib "USER" (ByVal hWnd As Integer, ByVal IpString As String, ByVa 
1 aint As Integer) As Integer 

Declare Function GetDC% Lib "USER" (ByVal hWnd%) 

Declare Function ReleaseDC% Lib "USER" (ByVal hWnd%, ByVal hDC%) 
Declare Function GetFocus Lib "USER" () As Integer 

Declare Function GetSystemMenu% Lib "USER" (ByVal hWnd%, ByVal bRevert%) 

Declare Function ModifyMenu% Lib "USER" (ByVal hMenu%, ByVal nPosition%, ByVal wFlags%, ByVal wl 
DNewItem%, ByVal IpString As Any) 

Declare Function RemoveMenu% Lib "USER" (ByVal hMenu%, ByVal nPosition%, ByVal wFlags%) 
Declare Sub PutFocus Lib "USER" Alias "SetFocus" (ByVal hWnd As Integer) 

Declare Function SendMessage% Lib "USER" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, lparam As Any 

Declare Function SendMessageByString% Lib "USER" Alias "SendMessage" (ByVal hWnd%, ByVal wMsg%, 
ByVal wParam%, ByVal lparam$) 

Declare Function SendMessageByNum% Lib "USER" Alias "SendMessage" (ByVal hWnd%, ByVal wMsg%, ,V 
al wParam%, ByVal lparam&) 

Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integ 
er) As Integer 

Declare Function Get PrivateProf ileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyNam 

e As Any, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%, ByVal lpFileNarae$) 

nprlarp Fiinrtinn G&+Pr i vaf-ftProf i 1 ft Tnt % Lib "Kernel" (BvVal loADDlicationName$ , ByVal lpKeyName$, 
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ByVal nDefault%, ByVal lpFileName$ ) 
Declare Function GetProf ileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal IpKeyName As An 
y, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%) 

Declare Function GetProf ilelnt% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal 
nDefault%) 

Declare Function GetWindows Direct ory% Lib "Kernel" (ByVal lpBuffer$, ByVal nSize%) 

Declare Function WritePrivateProf ileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyN 

ame As Any, ByVal lpString$, ByVal lpFileName$) 

Declare Function WriteProf ileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, B 
yVal lpString$) 

Declare Function mci Sends t ring Lib "MMSystem" (ByVal IpstrCommand As String, ByVal IpstrReturn A 
s String, ByVal nSize As Integer, ByVal hCallback As Integer) As Long 

Declare Function mciGetErrorString Lib "MMSystem" (ByVal dwError As Long, ByVal IpstrBuffer As S 
tring, ByVal wLength As Integer) As Integer 

Declare Function SSD2GetControlHwnd Lib "SSDATA2 . VBX" (c As Control) As Integer 

Declare Function GetFreeSpace& Lib "Kernel" (ByVal wFlags%) 

Declare Function GetFreeSystemResources% Lib "USER" (ByVal fuSysRecorce%) 

Declare Function GlobalAlloc Lib "Kernel" (ByVal wFlags As Integer, ByVal dwBytes As Long) As In 
teger 

Declare Function GlobalFree Lib "Kernel" (ByVal hMem As Integer) As Integer 
Declare Function GlobalLock Lib "Kernel" (ByVal hMem As Integer) As Long 
Declare Function GlobalUnlock Lib "Kernel" (ByVal hMem As Integer) As Integer 

Declare Function OPenFile Lib "Kernel" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, By 
Val wStyle As Integer) As Integer 

Declare Function lclose Lib "Kernel" Alias "_lclose" (ByVal hFile As Integer) As Integer 
Declare Function hwrite Lib "Kernel" Alias "_hwrite" (ByVal hFile As Integer, ByVal hpvBuffer As 

Long, ByVal wBytes As Long) As Long 
Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Long) As Integer 

Declare Sub FillRect Lib "USER" (ByVal hDC As Integer, lpRect As RECT , ByVal hBrush As Integer) 
Declare Function DeleteObject% Lib "GDI" (ByVal hObject%) 

Declare Function GetBitmapBitsBynum& Lib "GDI" Alias "GetBitmapBits" (ByVal hBitmap%, ByVal dwCo 
unt&, ByVal lpBits&) 

Declare Function GetDialogBaseUnits Lib "USER" () As Long 

Declare Function CreateWindow% Lib "USER" (ByVal lpClassName$, ByVal lpWindowName$, ByVal dwf 
e&, ByVal x%, ByVal Y%, ByVal nWidth%, ByVal nfieight%, ByVal hwndParent%, ByVal hMenu%, ByVal .1 
nstance%, ByVal lpParam$) 

Declare Function ShowWindow% Lib "USER" (ByVal hWnd%, ByVal nCmdShow%) 

Declare Function DestroyWindow% Lib "USER" (ByVal hWnd%) 

Declare Function SetWindowText% Lib "USER" (ByVal hWnd%, lpString$) 

Declare Function BeginPaint% Lib "USER" (ByVal hWnd%, lpPaint As PaintStruct) 

Declare Sub EndPaint Lib "USER" (ByVal hWnd%, lpPaint As PaintStruct) 

Declare Function GetDeviceCaps% Lib "GDI" (ByVal hDC%, ByVal nlndex%) 

Declare Function GetVersion Lib "Kernel" () As Long 

Declare Function GetKeyboardType Lib "Keyboard" (ByVal nTypeFlag As Integer) As Integer 
Declare Function GetWinFlags Lib "Kernel" () As Long 

Declare Sub GetWindowRect Lib "USER" (ByVal hWnd As Integer, lpRect As RECT) 

Declare Sub Rectangle Lib "GDI" (ByVal hDC As Integer, ByVal XI As Integer, ByVal Yl As Integer, 

ByVal X2 As Integer, ByVal Y2 As Integer) 
Declare Function SelectObject% Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer) 
Declare Function GetTickCount& Lib "USER" () 

Declare Function GetFileVersionInfo% Lib "ver.dll" (ByVal lpszFileName$, ByVal HandleSt, ByVal cb 
Buf&, ByVal lpvDatafc) 

Declare Function GetFileVersionlnf oSize% Lib "ver.dll" (ByVal lpszFileName$, lpdwHandle&) 
Declare Function Escape Lib "GDI" (ByVal hDC As Integer, ByVal nEscape As Integer, ByVal nCount 
As Integer, lplnData As Any, lpOutData As Any) As Integer 

Declare Function GetTextMetrics Lib "GDI" (ByVal hDC As Integer, lpMetrics As TextMetric) As Int 
eger 

Declare Function CreateCompatibleDC% Lib "GDI" (ByVal hDC% ) 

Declare Function StretchBlt% Lib "GDI" (ByVal hDC%, ByVal x%, ByVal Y%, ByVal nWidth%, ByVal nHe 
ight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop 
&) 

Declare Function StretchDIBits% Lib "GDI" (ByVal hDC%, ByVal x%, ByVal Y%, ByVal nWidth%, ByVal 

nHeight%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal lpBits&, lpBi+ i 

fo As Bitmaplnfo, ByVal wUseage%, ByVal dwRop&) 

Declare Function DeleteDC% Lib "GDI" (ByVal hDC%) 

Declare Function DiskSpaceFree Lib "SETUPKIT.DLL" () As Long 

Declare Function sndPlaySound% Lib "MMSYSTEM. DLL" (ByVal lpszSoundName$, ByVal wFlags%) 
Declare Function LineTo% Lib "GDI" (ByVal hDC%, ByVal x%, ByVal Y% ) 
Declare Function MoveTo% Lib "GDI" (ByVal hDC%, ByVal x%, ByVal Y%) 
n^nl^rft Function SetROP?* Lib "GOT" fBvVal hDC%. BvVal DrawMode%) 
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Declare Function GetStockOb ject% Lib "GDI" (ByVal fnObject%) 

Declare Function CreatePen% Lib "GDI" {ByVal hPen%, ByVal nWidth%, ByVal nColor As Any) 

Declare Sub SetWindowPos Lib "USER" (ByVal hWnd%, ByVal hWndlnsertAf ter%, ByVal x%, ByVal Y%, By 

Val cX%, ByVal cY%, ByVal wFlags%) 

Declare Function SetClipBoardData% Lib "USER" (ByVal mFormat%, ByVal hMem%) 
Declare Function OpenClipboard% Lib "USER" (ByVal hWnd%) 
Declare Function CloseClipboard% Lib "USER" () 

Declare Function SetVoiceAccent% Lib "Sound" (ByVal nVoice%, ByVal nTempo%, ByVal nVolume%, ByVa 
1 nMode%, ByVal nPitch%) 

Declare Function SetVoiceEnvelope% Lib "Sound" (ByVal nVoice%, ByVal nShape%, ByVal nRepeat%) 
Declare Function SetVoiceNote% Lib "Sound" (ByVal nVoice%, ByVal nValue%, ByVal nLength%, ByVal 
nCdots%) 

Declare Function SetVoiceQueueSize% Lib "Sound" (ByVal nVoice%, ByVal nBytes%) 

Declare Function SetVoiceSound% Lib "Sound" (ByVal nVoice%, ByVal IFrequencyS, ByVal nDuration%) 
Declare Function SetVoiceThreshold% Lib "Sound" (ByVal nVoice%, ByVal nNotes%) 
Declare Sub CloseSound Lib "Sound" () 
Declare Function OpenSound% Lib "Sound" ( ) 
Declare Function StartSound% Lib "Sound" () 

Declare Function GetDriveType% Lib "Kernel" (ByVal nDrive%) 

Declare Function BitBLt% Lib "GDI" (ByVal hDestDC%, ByVal x%, ByVal Y%, ByVal nWidth%, ByVal nHe 
ight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwRop&) 
T SpyWorks declarations 

Declare Function dwGetAddressForObject Lib "dwSpyDll.dll" (object As Any) As Long 

Declare Function dwGe t Address For VBSt ring Lib "dwSpyDll.dll" (Strg As String) As Long 

Declare Sub dwCopyDataBynura Lib "dwSpyDll.dll" Alias "dwCopyData" (ByVal sources, ByVal dest&, B 

yVal nCount%) 

Declare Function dwPOINTAPItoLong& Lib "dwSpyDll.dll" (Pp As PointAPI) 
Declare Function dwGetInstance% Lib "dwSpyDll.dll" () 

Declare Function dwGetControlHwnd% Lib "dwSpyDll.dll" (hctl As Control) 
'Video for Windows declarations 

Declare Function videoGetNumDevs Lib "msvideo.dll" () As Long 

Declare Function videoOpen Lib "msvideo.dll" (ByVal lphVideo&, ByVal dwDevicefi, ByVal dwFlags&) 
As Long 

Declare Function videoClose Lib "msvideo.dll" (ByVal hVideo%) As Long 

Declare Function videoConf igure Lib "msvideo.dll" (ByVal hVideo%, ByVal Msg%, ByVal dwFlagsfc, ^y 
Val lpdwReturn&, ByVal lpDatal&, ByVal dwSizelS, ByVal lpData2&, ByVal dwSize2&) As Long 
Declare Function videoFrame Lib "msvideo.dll" (ByVal hVideo%, ByVal lpVHdr&) As Long 
Declare Function DrawDibOpen Lib "msvideo.dll" () As Integer 

Declare Function DrawDibBegin Lib "msvideo.dll" (ByVal hDD%, ByVal hwd%, ByVal bw%, ByVal bh%, B 
yVal btmp&, ByVal bbw%, ByVal bbh%, ByVal dfl%) As Integer 

Declare Function DrawDibDraw Lib "msvideo.dll" (ByVal hDD%, ByVal hwd%, ByVal xdist%, ByVal ydis 
t%, ByVal bw%, ByVal bh%, ByVal btmp&, ByVal bmt As Any, ByVal XSrc%, ByVal YSrc%, ByVal bbw%, B 
yVal bbh%, ByVal dfl%) As Integer 

Declare Function DrawDibEnd Lib "msvideo.dll" (ByVal hDD%) As Integer 
Declare Function DrawDibClose Lib "msvideo.dll" (ByVal hDD%) As Integer 

Declare Function DrawDibSetPalette Lib "msvideo.dll" (ByVal hDD%, ByVal hpal%) As Integer 
Declare Function DrawDibRealize Lib "msvideo.dll" (ByVal hDD%, ByVal hDC%, ByVal f Background%) A 
s Integer 

Declare Function DrawDibGetPalette Lib "msvideo.dll" (ByVal hDD% ) As Integer 

Declare Function DrawDibChangePalette Lib "msvideo.dll" (ByVal hDD%, ByVal iStart% r ByVal iLen%, 
ByVal lppe%) As Integer 
'Sheriden declarations 

Declare Function SSD2GetControlHwnd Lib "SSDATA2 . VBX" (c As Control) As Integer 
'EDIL'zssa.dll call 

Declare Function LZSSPackFile% Lib "edilzssa.dll" (ByVal SrcFile$ / ByVal DestFile$) 
Declare Function LZSSUnPackFile% Lib "edilzssa.dll" (ByVal SrcFile$, ByVal DestFile$) 
1 Pptr decs 

Declare Function Pprtr Lib "PPRTR.DLL" (ByVal hWnd As Integer, ByVal ppSelection As Integer, ByV 
al PPNewValue As Integer, ByVal ppAction As Integer) As Integer 

Declare Function DefPrtr Lib "PPRTR.DLL" (ByVal newone As String, ByVal oldone As String) As Int 
eger 

Declare Function Prtrs Lib "PPRTR.DLL" (ByVal plist As String) As Integer 
'Declare Function PrtrCap Lib "PPRTR.DLL" (ndc As DEVCAP) As Integer 
Declare Function GetPrtr Lib "PPRTR.DLL" (ByVal DefPrtr As String) As Integer 
Declare Function GetPort Lib "PPRTR.DLL" (ByVal PtrPort As String) As Integer 

'GLOBAL CONSTANTS SECTION 

Global Const GW_HWNDFIRST - 0 
mnb*1 Const GW HWNDNEXT = 2 
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DAT A_ACT I ONC ANCE L - 0 
DATA_ACTIONMOVEFIRST - 1 
DATA_ACTIONMOVE PREVIOUS = 2 
DATA_ACTIONMOVENEXT = 3 
DAT A_ACT I ONMOVE LAS T - 4 
DAT A_ACT I ON ADDN EW = 5 
D AT A_AC T I ON U P DAT E - 6 
DAT A_ACT I ONDELETE = 7 
DATA_ACT I ON F I N D « 8 
DATA_ACT ION BOOKMARK = 9 
DATAJVCTIONCLOSE =10 
DATA_ACTIONUNLOAD « 11 

1 Clipboard formats 
Global Const CF_JLINK - &HBFO0 
Global Const CF_TEXT = 1 
Global Const CFJ3ITMAP = 2 
Global Const CF_METAFILE = 3 
Global Const CFDIB = 8 
Global Const CF PALETTE - 9 



Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 



1 DragOver 

Global Const ENTER = 0 
Global Const LEAVE - 1 
Global Const OVER = 2 



• Drag (controls) 
Global Const CANCEL - 0 
Global Const BEGIN_DRAG = 1 
Global Const END_DRAG = 2 

1 Show parameters 
Global Const MODAL = 1 
Global Const MODELESS - 0 

1 Arrange Method for MDI Forms 
Global Const CASCADE = 0 
Global Const TILE_HORI ZONTAL = 1 
Global Const TILE_VERTICAL = 2 
Global Const ARRANGE_ICONS = 3 

• ZOrder Method 

Global Const BRI NGTOFRONT = 0 
Global Const SENDTOBACK = 1 



T Key Codes 

Global Const KEYLBUTTON = &H1 
Global Const KEY_RBUTTON = &H2 
Global Const KEY_CANCEL = &H3 
Global Const KEY_MBUTTON = &H4 
Global Const KEY_BACK = &H8 
Global Const KEY_TAB = &H9 
Global Const KEY_CLEAR = &HC 
Global Const KEY_RETURN = &HD 
Global Const KEY_SHIFT = &H10 
Global Const KEY_CONTROL = &H11 
Global Const KEYJ4ENU = &H12 
Global Const KEY_ PAUSE = &H13 
Global Const KEY_CAPITAL = &H14 
Global Const KEY_ESCAPE « &H1B 
Global Const KEY_SPACE = &H20 
Global Const KEY_PRIOR = &H21 
Global Const KEY_NEXT = &H22 
Global Const KEY_END = &H23 
Global Const KEY_HOME - &H24 
Global Const KEY_LEFT = &H25 
Global Const KEY_UP - &H26 
Global Const KEY_RIGHT = &H27 

Cl^Kcl Pnncf WRY nOWM = JCH9P 



NOT contiguous with L & RBUTTON 
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Global Const KEY_S ELECT - &H29 
Global Const KEY_PRINT - &H2A 
Global Const KEY_EXECUTE - &H2B 
Global Const KEYJSNAPSHOT = &H2C 
Global Const KEY_INSERT = &H2D 
Global Const KEY_DELETE = &H2E 
Global Const KEY_HELP = &H2F 

1 KEY_A thru KEY__Z are the same as 
' KEY_0 thru KEY_9 are the same as 

Global Const KEY_NUMPADO = &H60 
Global Const KEY_NUMPAD1 = &H61 
Global Const KEY_NUMPAD2 = &H62 
Global Const KEY_NUMPAD3 - &H63 
Global Const KEY_NUMPAD4 - &H64 
Global Const KEY_NUMPAD5 = &H65 
Global Const KEY_NUMPAD6 = &H66 
Global Const KEY_NUMPAD7 = &H67 
Global Const KEY_NUMPAD8 » &H68 
Global Const KEY_NUMPAD9 « &H69 
Global Const KEYJYKJLTIPLY = &H6A 
Global Const KEY_ADD = &H6B 
Global Const KE Y_S E PARATOR - &H6C 
Global Const KEYJ3UBTRACT = &H6D 
Global Const KEY_DECIMAL - &H6E 
Global Const KEY_DIVIDE = &H6F 
Global Const KEY_F1 = &H70 
Global Const KEY_F2 = &H71 
Global Const KEY_F3 = &H72 
Global Const KEY_F4 = &H73 
Global Const KEY_F5 = &H74 
Global Const KEY_F6 = &H75 
Global Const KEY_F7 = &H7 6 
Global Const KEY_F8 = &H77 
Global Const KEY_F9 = &H78 
Global Const KEY_F10 - &H7 9 
Global Const KEY_F11 = &H7A 
Global Const KEYJH.2 = &H7B 
Global Const KEY_F13 = &H7C 
Global Const KEY_F14 = &H7D 
Global Const KEY_F15 = &H7E 
Global Const KEY_F16 - &H7F 

Global Const KEY NUMLOCK - &H90 



their ASCII equivalents: 'A 1 thru 'Z' 
their ASCII equivalents: 'O 1 thru '9 1 



! ErrNum (LinkError) 
Global Const WRONG_FORMAT = 1 
Global Const DDE_SOURCE_CLOSED = 6 
Global Const TOO_MANY_LINKS = 7 
Global Const DATA TRANSFER FAILED = 8 



1 QueryUnloacl 

Global Const FORM_CONTROLMEND ~ 0 
Global Const F0RMJ20DE = 1 
Global Const APP_WINDOWS = 2 
Global Const APPJTASKMANAGER = 3 
Global Const FORM MDIFORM = 4 



r Colors 

Global Const BLACK = 

Global Const RED = &HFF& 

Global Const GREEN = &HFF00& 

Global Const YELLOW = &HFFFF& 

Global Const Blue = &HFFOO00 

Global Const MAGENTA - &HFF0OFF 

Global Const CYAN = &HFFFF00 

Global Const WHITE = &HFFFFFF 

Global Const GRAY = &HC0COC0 
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f System Colors 

Global Const SCROLL_BARS = &H80000000 

Global Const DESKTOP = &H80000001 

Global Const ACT I VE JT I TLE_BAR = &H80000002 

Global Const I N ACT I VE_T I T L E__B AR = &H80O00OO3 

Global Const MENUJ3AR = &H80000004 

Global Const W IN DOW_BACKG ROUND = &H80000005 

Global Const WINDOW_FRAME = &H80000006 

Global Const MENU_TEXT = &H80000007 

Global Const WINDOW_TEXT = &H80000008 

Global Const TITLE_BAR_TEXT « &H8OOOO0O9 

x . . 

Global Const ACTIVE_BORDER = &H8000000A 

Global Const INACT I VE_BORDER = &R8000000B 

Global Const APPLICATION_WORKSPACE = &H8000000C 

e (MDI) applications. 

Global Const HIGHLIGHT = &H8000000D 

Global Const HIGHLIGHT_TEXT = &H8000000E 

Global Const BUTTONFACE - &H8000000F 

Global Const BUTTON_S HADOW = &H80000010 

Global Const GRAY_TEXT = &H80000011 

0 if the current display driver does not support 

Global Const BUTTON TEXT ^ &H80000012 



Scroll-bars gray area. 
Desktop. 

Active window caption. 

Inactive window caption. 

Menu background. 

Window background. 

Window^ frame. 

Text in menus . 

Text in windows. 

Text in caption, size box, 



scroll-bar arrow bo 



Active window border. 
Inactive window border. 

Background color of multiple document interfac 

Items selected item in a control. 
Text of item selected in a control. 
Face shading on command buttons. 
Edge shading on command buttons . 
Grayed (disabled) text. This color is set to 
a solid gray color. 
Text on push buttons. 



Enumerated Types 



1 Align (picture box) 
Global Const none = 0 
Global Const ALIGN_TOP = 1 
Global Const ALIGN BOTTOM = 2 



1 Alignment 

Global Const LEFT_JUSTIFY =0 « 0 - Left Justify 

Global Const RIGHT_JUSTIFY - 1 1 1 - Right Justify 

Global Const CENTER = 2 1 2 - Center 



' BorderStyle (form) 
'Global Const NONE = 0 
Global Const FIXED_S INGLE = 1 
Global Const SIZABLE - 2 
Global Const FIXED DOUBLE = 3 



' 0 - None 

1 1 - Fixed Single 

1 2 - Sizable (Forms only) 

f 3 - Fixed Double (Forms only) 



' DragMode 

Global Const MANUAL =0 ' 0 - Manual 
Global Const AUTOMATIC = 1 1 1 - Automatic 

1 DrawMode 



Global 


Const 


BLACKNESS = 1 




t i ~ 


Blackness 


Global 


Const 


NOT MERGE PEN 


= 2 


1 2 - 


Not Merge Pen 


Global 


Const 


MASK NOT PEN « 


3 


1 3 - 


Mask Not Pen 


Global 


Const 


NOT COPY PEN = 


4 


• 4 - 


Not Copy Pen 


Global 


Const 


MASK PEN NOT = 


5 


1 5 - 


Mask Pen Not 


Global 


Const 


INVERT - 6 




■ 6 - 


Invert 


Global 


Const 


XOR PEN = 7 




' 1 - 


Xor Pen 


Global 


Const 


NOT MASK PEN - 


8 


' 8 - 


Not Mask Pen 


Global 


Const 


MASK PEN = 9 




1 9 - 


Mask Pen 


Global 


Const 


NOT XOR PEN - 


10 


1 10 


- Not Xor Pen 


Global 


Const 


NOP - 11 




' 11 


- Nop 


Global 


Const 


MERGE NOT PEN 


= 12 


' 12 


- Merge Not Pen 


Global 


Const 


COPY PEN =13 




' 13 


- Copy Pen 


Global 


Const 


MERGE PEN NOT 


- 14 


' 14 


- Merge Pen Not 


Global 


Const 


MERGE PEN = 15 




» 15 


- Merge Pen 


Global 


Const 


WHITENESS = 16 




» 16 


- Whiteness 



' DrawStyle 

Global Const SOLID = 0 
Global Const DASH = 1 
Global Const DOT « 2 
Global Const DASH_DOT = 3 
ninh^l Const. DASH DOT DOT 



1 0 - Solid 

• 1 - Dash 

1 2 - Dot 

1 3 - Dash-Dot 

4 ' 4 - Dash-Dot-Dot 
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Global Const INVISIBLE =5 1 5 - Invisible 
Global Const INVERSE = 6 1 6 - Inverse 



1 FillStyle 

' Global Const SOLID = 0 
Global Const TRANSPARENT = 1 
Global Const HORIZONTAL_LINE = 2 
Global Const VERTICAL_LINE = 3 
Global Const UPWARD_DI AGONAL = 4 
Global Const DOWNWARDJ} I AGONAL = 5 
Global Const CROSS = 6 
Global Const DIAGONAL CROSS = 7 



1 LinkMode (forms and controls) 
' Global Const NONE = 0 
Global Const LINK_SOURCE = 1 
Global Const LI NK_AUTOMAT I C - 1 
Global Const L I NK_MANUAL = 2 
Global Const LINK NOTIFY = 3 



0 - Solid 

1 - Transparent 

2 - Horizontal Line 

3 - Vertical Line 

4 - Upward Diagonal 

5 - Downward Diagonal 

6 - Cross 

7 - Diagonal Cross 



0 - None 

1 - Source (forms only) 

1 - Automatic (controls only) 

2 - Manual (controls only) 

3 - Notify (controls only) 



' LinkMode (kept for VB1.0 compatibility, use new constants instead) 



Global Const HOT =1 ■ 1 
Global Const SERVER = 1 1 1 
Global Const COLD =2 • 2 



Hot (controls only) 
Server (forms only) 
Cold (controls only) 



1 ScaleMode 

Global Const USER =0 ' 0 - User 

Global Const TWIPS =1 r 1 - Twip 

Global Const POINTS =2 ' 2 - Point 

Global Const PIXELS =3 T 3 - Pixel 

Global Const CHARACTERS =4 ' 4 - Character 

Global Const INCHES =5 1 5 - Inch 

Global Const MILLIMETERS = 6 ' 6 - Millimeter 

Global Const CENTIMETERS = 7 1 7 - Centimeter 

• ScrollBar 

1 Global Const NONE = 0 1 0 - None 

Global Const HORIZONTAL = 1 1 1 - Horizontal 

Global Const VERTICAL =2 1 2 - Vertical 

Global Const BOTH =3 ' 3 - Both 

• Shape 

Global Const SHAPEJRECTANGLE = 0 

Global Const SHAPE_SQUARE = 1 

Global Const SHAPEJDVAL - 2 

Global Const SHAPE_CIRCLE = 3 

Global Const SHAPE_ROUNDED_RECTANGLE = 4 

Global Const SHAPE_ROUNDED_SQUARE = 5 

1 WindowState 

Global Const NORMAL - 0 1 0 - Normal 

Global Const MINIMIZED = 1 ' 1 - Minimized 

Global Const MAXIMIZED = 2 1 2 - Maximized 

■ Check Value 

Global Const UNCHECKED = 0 ' 0 - Unchecked 

Global Const Checked =1 1 1 - Checked 

Global Const GRAYED =2 1 2 - Grayed 

• Shift parameter masks 
Global Const SHIFT_MASK - 1 
Global Const CTRL_MASK = 2 
Global Const ALT MASK = 4 



1 Button parameter masks 
Global Const LEFT_BUTTON = 1 
Global Const RIGHT_BUTTON = 2 
Global Const MIDDLE BUTTON = 4 
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1 SetAttr, Dir, GetAttr functions 
Global Const ATTR_NORMAL = 0 
Global Const ATTR_READONLY = 1 
Global Const ATTR_HIDDEN = 2 
Global Const ATTR_SYSTEM - 4 
Global Const ATTR_VOLUME = 8 
Global Const ATTR_DI RECTORY =16 
Global Const ATT R_ARC HIVE = 32 

'Grid 

* ColAlignment, FixedAlignment Properties 
Global Const GRID_ALIGNLEFT = 0 
Global Const GRID_ALIGNRIGHT = 1 
Global Const G RT D_AL I GN CENTER = 2 

■Fillstyle Property 

Global Const GRID_S INGLE = 0 

Global Const GRID REPEAT = 1 



•Common Dialog Control 



'Action Property 
Global Const DLG_FILE_OPEN 
Global Const DLG_FILE_SAVE 
Global Const DLG_COLOR = 3 
Global Const DLG_FONT = 4 
Global Const DLG__PRINT = 5 
Global Const DLG_HELP - 6 

1 File Open/Save Dialog Flags 
Global Const OFN_READONLY = &H1& 
Global Const O FN_OVERWR I T E PROMPT - &H2& 
Global Const OFN_HIDEREADONLY = &H4& 
Global Const OFN_NOCHANGEDIR = &H8& 
Global Const OFNJSHOWHELP = &H10& 
Global Const 0 FN_NO VAL I DAT E = &H100& 
Global Const OFN_ALLOWMULT I SELECT = &H200& 
Global Const OFN_EXTENTIONDI FFERENT = &H4 00& 
Global Const OFN_PATHMUSTEXIST = &H800& 
Global Const OFN_FILEMUSTEXIST = &H1000& 
Global Const 0 FN_CRE AT E PROMPT = &H2000& 
Global Const OFN_S HARE AWARE = &H4000& 
Global Const OFN_NOREADQNLYRETURN - &H8000& 

•Color Dialog Flags 
Global Const CC_RGBINIT = &H1& 
Global Const CC_FULLOPEN = &H2& 
Global Const CC_PREVENTFULLOPEN = &H4& 
Global Const CC_SHOWHELP « &H8& 

'Fonts Dialog Flags 

Global Const CF_SCREENFONTS « &H1& 

Global Const CF_PRINTERFONTS « &H2& 

Global Const CF^BOTH - &H3& 

Global Const CF_SHOWHELP = &H4& 

Global Const CF_INITTOLOGFONTSTRUCT = &H40& 

Global Const CFUSESTYLE = &H80& 

Global Const CF_EFFECTS - &H100& 

Global Const CF_APPLY = &H200& 

Global Const CF_ANSIONLY = &H4 00& 

Global Const CF_NOVECTORFONTS = &H800& 

Global Const CF_NOSIMULATIONS = &H1000& 

Global Const CF_LIMITSIZE = &H2000& 

Global Const CF_FIXEDPITCHONLY = &H4000& 

Global Const CFJtfYSIWYG = &H8000& 'must also have CF_SCREEN FONTS & CF_PRI 

NTERFONTS 

Global Const C F_FORC EFONTEXIST = &H10000 
Global Const CF_SCALABLEONLY - &H20000 
niohal Const CF TTONLY = &H40000 
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Global Const CF_NOFACESEL = &H80000 
Global Const CF_NOSTYLESEL = &H1OO0OO 
Global Const CF NOSIZESEL = &H200000 



'Help 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 

Global 



Constants 
Const HELP 
Const HELP" 
Const HELP 
Const HELP" 
Const HELP_ 
Const HELP" 
Const HELP_ 
Const HELP 
Const HELP" 
Const HELP_ 
Const HELP" 
Const HELP_ 
Const HELP 



CONTEXT = &H1 
QUIT = &H2 
"INDEX = &H3 
"CONTENTS - &H3 
HELPONHELP = &H4 
SET INDEX - &H5 
SETCONTENTS = &H5 
CONTEXTPOPUP = &H8 
FORCEFILE = &H9 
KEY = &H101 
COMMAND = &H102 
PARTIALKEY = &H105 
SETWINPOS = &H203 



' SpinOrientation 

Global Const SPIN_VERTICAL = 0 

Global Const SPIN HORIZONTAL - 1 



'Display topic in ulTopic 
'Terminate help 
'Display index 

'Display help on using help 

'Set the current Index for multi index help 



'Display topic for keyword in offabData 
'call the search engine in winhelp 



' OpenFile{ 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 



) Flags 
OF_READ = &H0 
OF_WRITE = &H1 
OF_READWRITE = &H2 
0 F_S HARE_C OM PAT = &H0 
OFJSHARE^EXCLUSIVE = &H10 
OF SHARE DENY WRITE = &H20 



OF_SHARE_DENY_READ 
OF_SHARE_DENY_NONE 
OF PARSE = &H100 



&H30 
&H40 



OF_DELETE = 
OF_VERIFY * 
OF_CANCEL « 
OF_CREATE = 
OF_PROMPT = 
OF EXIST = 



= &H200 
= &H400 
■ &H800 
= &H1000 
= &H2000 
&K4000 



OF_REOPEN = &H8000 
OF SEARCH - &H400 



Global Const READAPI = 0 
Global Const WRITEAPI = 1 
Global Const READ_WRITE = 2 

'Global Memory Flags 

Global Const GMEM_FIXED = &H0 

Global Const GMEM_MOVEABLE « &H2 

Global Const GMEM_NOCOMPACT = &H10 

Global Const GMEM_NODISCARD = &H20 

Global Const GMEM_ZEROINIT = &H40 

Global Const GMEM_MODIFY - &H80 

Global Const GMEM_DI SCARDABLE = &H100 

Global Const GMEM_NOT_BANKED = &H1000 

Global Const GMEM_SHARE = &H2000 

Global Const GMEM_DDESHARE = &H2000 

Global Const GMEM_NOTIFY = &H4000 

Global Const GMEM LOWER = GMEM NOT BANKED 



Flags for _lopen 



Global Const GHND = ( GMEMJ40 VEABLE Or GMEM_ZEROINIT ) 
Global Const GPTR = (GMEM_FIXED Or GMEM_Z ERO I N I T ) 

'Flags returned by GlobalFlags (in addition to GMEM_D I SCARDABLE) 
Global Const GMEMJ3ISCARDED = &H4000 
Global Const GMEM_LOCKCOUNT = &HFF 

'Used in list tabbing 
Global Const WMJJSER - &H400 

Klnhal Const T.R RESF.TCONTF.NT « WM USER + 5 
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Global Const LB_SET TABS TOPS *= WM_USER 19 
Global Const LB_FINDSTRING = WMJJSER + 16 
Global Const LB_FINDSTRINGEXACT = WM_USER + 35 
Global Const LB_SELECTSTRING = WM_USER + 13 
Global Const LB_S EL ITEMRANGE = WM_USER + 28 

'Other message constants 

Global Const EM__UNDO = WM_USER + 23 

Global Const EM_CANUNDO = WM_USER + 22 

Global Const WM_UNDO = &H304 

Global Const WM_CUT - &H300 

Global Const WM_COPY = &H301 

Global Const WM_PASTE = &H302 

Global Const WM_CLEAR - &H303 

Global Const WM__MEN US ELECT = &H11F 

Global Const WM_QUIT = &H12 

Global Const WM_CLOSE = &H10 

Global Const MF_BYCOMMAND = &H0 
Global Const MF_BYPOSITION = &H400 
Global Const MF_BITMAP - &H4 
Global Const MF_DISABLED = &H2 
Global Const MF_GRAYED « &H1 

Global Const SC_RESTORE = &HF120 
Global Const SC_MOVE - &HF010 
Global Const SC_SIZE = &HF0OO 
Global Const SC_MINIMIZE - &HF020 
Global Const SC_MAXIMIZE = &HF030 
Global Const SC_CLOSE - &HF060 
Global Const SCJTASKLIST = &HF130 

Global Const SW_HIDE = 0 
Global Const SW_SHOWNORMAL = 1 
Global Const SW_NORMAL = 1 
Global Const SW_SHOWMINIMIZED = 2 
Global Const SWJSKOWMAXIMIZED = 3 
Global Const SW_MAXIMIZE = 3 
Global Const SW_SHOWNOACTIVATE = 4 
Global Const SW_SHOW = 5 
Global Const SWMINIMIZE - 6 
Global Const SW_SHOWMINNOACTIVE = 7 
Global Const SW_SHOWNA = 8 
Global Const SW_RESTORE = 9 

Global Const WSJDVERLAPPED = &H0& 
Global Const WS_POPUP = &H80000000 
Global Const WS_CHILD - &H40000000 
Global Const WSMINIMIZE = &H20000000 
Global Const WS_VISIBLE = &H10000000 
Global Const WS_DISABLED = &H8000000 
Global Const WS_CLIPSIBLINGS = &H4000000 
Global Const WS_CLIPCHILDREN = &H2000000 
Global Const WS_MAXIMIZE = &H1000000 

Global Const WS_CAPTION = &HC0OO0O ■ WS_BORDER Or WS_DLG FRAME 

Global Const WS_BORDER - &H800000 

Global Const WS_DLGFRAME = &H400000 

Global Const WS_VSCROLL = &H200000 

Global Const WS_HSCROLL = &H100000 

Global Const WS_SYSMENU = &H800O0 

Global Const WS_THICKFRAME = &H40000 

Global Const WS_GROUP - &H20000 

Global Const WSJTABSTOP = &H10000 

Global Const WSJYIINIMIZEBOX - &H20000 
Global Const WS_MAXIMIZEBOX = &H10000 

Global Const WS_TILED = WSJDVERLAPPED 
Global Const WS_ICONIC - WS_MINIMIZE 
^Irih^l rnnst- fiTZF.ROX = WS TH TP.fCFR AMR 
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1 Common Window Styles 

Global Const WS_OVERLAPPEDWIND0W = (WS_OVERLAPPED Or WS_CAPTION Or WSJSYSMENU Or WSJTHICKFRAME O 
r WSjyllNIMIZEBOX Or WS_MAXIMI ZEBOX) 

Global Const WS_POPUPWINDOW - (WS_POPUP Or WS_BORDER Or WSJSYSMENU) 

Global Const WS_CHILDWINDOW = (WS_CHILD) K- % - ;; 

Global Const WSJTILEDWINDOW = (WS_OVERLAPPEDWINDOW) 

■ Extended Window Styles 
Global Const WS_EX_DLGMODAL FRAME = &H1& 
Global Const WS_EX_NOPARENTNOT I FY = &H4& 
Global Const WS_EX_TOPMOST = &H8& 
Global Const WS_EX_ACCEPT FILES = &H10& 
Global Const WS EX TRANSPARENT - &H20& 



GetDeviceCaps ( ) Device Parameters 



Global Const DRIVERVERSION = 
Global Const TECHNOLOGY = 2 
Global Const HORZSIZE = 4 
Global Const VERTSIZE = 6 
Global Const HORZRES = 8 
Global Const VERTRES = 10 
Global Const BITSPIXEL = 12 
Global Const PLANES - 14 
Global Const NUMBRUSHES =16 
Global Const NUMPENS = 18 
Global Const NUMMARKERS =20 
Global Const NUMFONTS = 22 
Global Const NUMCOLORS =24 
Global Const PDEVICESIZE = 2 
Global Const CURVECAPS = 28 
Global Const LINECAPS = 30 
Global Const POLYGONALCAPS = 
Global Const TEXTCAPS - 34 
Global Const CLIPCAPS =36 
Global Const RASTERCAPS = 38 
Global Const ASPECTX =40 
Global Const ASPECTY - 42 
Global Const ASPECTXY =44 



Device driver version 
Device classification 
Horizontal size in millimeters 
Vertical size in millimeters 
Horizontal width in pixels 
Vertical width in pixels 
Number of bits per pixel 
Number of planes 

1 Number of brushes the device has 
Number of pens the device has 

1 Number of markers the device has 
Number of fonts the device has 
Number of colors the device supports 

1 Size required for device descriptor 
Curve capabilities 
Line capabilities 
32 1 Polygonal capabilities 
Text capabilities 
Clipping capabilities 

1 Bitblt capabilities 
Length of the X leg 
Length of the Y leg 
Length of the hypotenuse 



Global Const LOGPIXELSX =88 
Global Const LOGPIXELSY = 90 



Logical pixels/inch in X 
Logical pixels/inch in Y 



Global Const SIZE PALETTE = 104 ■ Number of entries in physical palette 
Global Const NUMRESERVED = 106 1 Number of reserved entries in palette 
Global Const COLORRES = 108 ' Actual color resolution 



1 1 Version control 
Global Const VS FFI 
Global Const VS 
Global Const VS 
Global Const VS^ 
Global Const VSJFF 
Global Const VS FF 
Global Const VS" 
Global Const VS 



FFI 
"FFI 
"FF 



FF 
FF~ 



Global Const VS FF 



flags 

^SIGNATURE = &HFEEF04BD 
_STRUCVERSION = &H10000 
_FILEFLAGSMASK = &H3F& 
DEBUG = &H1& 
PRERELEASE = &H2& 
PATCHED = &H4& 
PRIVATEBUILD « &H8& 
INFOINFERRED = &H10& 
SPECIALBUILD = &H20& 



■ 1 Version control OS flags 
Global Const VOSJJNKNOWN = &H0& 
Global Const VOS_DOS = &H10000 
Global Const VOS_OS216 - &H20000 
Global Const VOS_OS232 = &H30000 
Global Const V0S_NT = &H4 0000 

Global Const VOS BASE « &H0& 

Global Const VOS WINDOWS 16 = &H1& 

Global Const VOS PM16 = &H2& 

Global Const VOS PM32 = &H3& 

Global Const VOS WINDOWS 3 2 « &H4& 
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Global Const V0S_D0S_WINDOWS32 = &H10004 
Global Const VOS_OS216_PM16 = &H20002 
Global Const VOS_OS232_PM32 = &H30003 
Global Const VOS_NT_WINDOWS32 - &H4 0004 

' 1 Version control file types 
Global Const VFT_UNKNOWN = &H0& 
Global Const VFT_APP = &H1& 
Global Const VFT_DLL = &H2& 
Global Const VFT_DRV = &H3& 
Global Const VFT_FONT - &H4& 
Global Const VFT_VXD = &H5& 
Global Const VFT_STATIC_LIB = &H7& 

• VS_VERSION.dwFileSubtype for VFT_WINDOWS_DRV 
Global Const VFT2_UNKNOWN = &H0& 

Global Const VFT2_DRV_PRINTER = &H1& 
Global Const VFT2_DRV_KEYB0ARD = &H2& 
Global Const VFT2_DRV_LANGUAGE = &H3& 
Global Const VFT2_DRV_DI SPLAY - &H4& 
Global Const VFT2_DRV_M0USE = &H5& 
Global Const VFT2_DRV_NETW0RK = &H6& 
Global Const VFT2_DRV_SYSTEM = &H7& 
Global Const VFT2_DRV_INSTALLABL£ = &H8& 
Global Const VFT2_DRV_S0UND - &H9& 
Global Const VFT2_DRV_COMM = &HA& 

• VS_VERSION.dwFileSubtype for VFT_WINDOWS_FONT 
Global Const VFT2_F0NT_RASTER - &H1& 

Global Const VFT2_F0NT_VECT0R - &H2& 
Global Const VFT2_F0NT_TRUETYPE = &H3& 

11 VerFindFileO flags 

Global Const VFFF_ISSHAREDFILE « &H1 

Global Const VFF_CURNEDEST - &H1 
Global Const VFF_FILEINUSE - &H2 
Global Const VFF_BUFFTOOSMALL = &H4 

lf VerlnstallFileO flags 

Global Const VI FF_FORCE I NS T ALL = &H1 

Global Const VI FF_DONTDELETEOLD - &H2 

Global Const VIFJTEMPFILE = &H1& 
Global Const VIF_MISMATCH - &H2& 
Global Const VIF_SRCOLD - &H4& 

Global Const VIF_DIFFLANG = &H8& 
Global Const VIF_DIFFCODEPG = &H10& 
Global Const VIF_DIFFTYPE - &H20& 

Global Const VIF_WRITEPROT = &H40& 

Global Const VIF_FILEINUSE - &H80& 

Global Const VIF_OUTOFSPACE = &H100& 

Global Const VIF_ACCESSVIOLATION = &H200& 

Global Const VIF_SHARINGVIOLATION = &H400& 

Global Const VI F_CANNOTCREATE - &H800& 

Global Const VI F_C ANNOT DELETE = &H1000& 

Global Const VI F_CANNOTRENAME = &H2000& 

Global Const VIFJ2ANN0TDELETECUR = &H4000& 

Global Const VI F_OUTOFMEMORY - &H8000& 

Global Const VI F_CANNOT READS RC = &H10000 
Global Const VI F_CANNOTREADDST = &H20000 

Global Const VI F_BUFFTOO SMALL = &H40000 

'Escape function constants 
Global Const GETPAGESIZE = 12 
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' sndPlaySound constants 
Global Const SND_SYNC = &H0 
Global Const SND_ASYNC = &H1 
Global Const SND_NODEFAULT = &H2 
Global Const SND_LOOP ■* &H8 
Global Const SND_NOSTOP = &H10 

'Float window constants 
Global Const SWPJ10M0VE - 2 
Global Const SWP_NOSIZE - 1 
Global Const HWNDJTOP = 0 
Global Const HWND_BOTTOM = 1 
Global Const HWND_TOPMOST « -1 
Global Const HWND_NOTOPMOST = -2 
Global Const FLOAT = 1, SINK = 0 

'used in GetDriveType 
Global Const DRI VE_REMOVABLE = 2 
Global Const DRIVE_FIXED - 3 
Global Const DRIVE_REMOTE = 4 

1 Option argument values (CreateDynaset, etc) 

Global Const DBJDENYWRITE » &H1 

Global Const DB_DENYREAD = &H2 

Global Const DB_READONLY - &H4 

Global Const DB__APPENDONLY - &H8 

Global Const DB^INCONSISTENT = &H10 

Global Const DB_CONSISTENT = &H20 

Global Const DB_SQLPASS THROUGH = &H40 

• SetDataAccessOption 

Global Const DB_OPTIONINIPATH - 1 

' Field Attributes 
Global Const DB_FIXEDFIELD = &H1 
Global Const DB_VARIABLEFIELD = &H2 
Global Const DB_AUTOINCRFIELD = &H10 
Global Const DB_UPDATABLEFIELD = &H20 

r Field Data Types 
Global Const DB_BOOLEAN = 1 
Global Const DB_BYTE = 2 
Global Const DB_INTEGER = 3 
Global Const DB_LONG = 4 
Global Const DB_CURRENCY = 5 
Global Const DB_S INGLE « 6 
Global Const DB_DOUBLE = 7 
Global Const DB_DATE = 8 
Global Const DB_TEXT = 10 
Global Const DB_LONGBINARY = 11 
Global Const DB_MEMO = 12 

• TableDef Attributes 

Global Const DB_ATTACHEXCLUSIVE = &H10000 
Global Const DB_ATTACHSAVEPWD = &H20000 
Global Const DBJSYSTEMOBJECT = &H80000002 
Global Const DB^ATT ACHE DT ABLE = &H4 0000000 
Global Const DB_ATTACHEDODBC = &H20000000 

• ListTables TableType 
Global Const DBJTABLE = 1 
Global Const DB_QUERYDEF » 5 

f ListTables Attributes (for QueryDefs) 
Global Const DB_QACT ION = &HF0 
Global Const DB__QC ROSS TAB = &H10 
Global Const DB_QDELETE = &H20 
Global Const DB_QUPDATE = &H30 
Hloh^l Hnnst- HR HAPPEN!") = 
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Global Const DB_QMAKETABLE = &H50 

1 Listlndexes I ndexAt tributes values 

Global Const DBJJNIQUE - 1 

Global Const DB_PRIMARY = 2 

Global Const DB_PROHIBITNULL = 4 

Global Const DB_IGNORENULL = 8 

' Listlndexes FieldAttributes value 

Global Const DB_DESCENDING = 1 1 For each field in Index 

'CreateDatabase and CorapactDatabase Language constants 

Global Const DB_LANG_GENERAL = " ; LANGID=0x0809; CP-1252 ; COUNTRY=0 " 



CreateDatabase and CompactDatabase options 



Global Const DB_VERSION10 = 1 
Global Const DB_ENCRYPT = 2 
Global Const DB_DECRYPT = 4 

'Collating order values 

Global Const DB_SORTGENERAL - 256 

Italian) 

Global Const DB_SORTUNDE FINED = -1 

1 BitBlt constants 

Const SRCCOPY = &HCC0020 



Microsoft Access Version 1.0 

Make database encrypted. 

Decrypt database while compacting. 



Sort by EFGPI rules (English, French, German, Portuguese, 
Sort rules are undefined or unknown 



1 Pptr constants 

Global Const DMORI ENT_PORTRAIT = 1 
Global Const DMORI ENT_LANDSCAPE = 2 
Global Const DM_ORIENTATION = &H1 
Global Const DM_PAPERSIZE = &H2 
Global Const DM_PAPERLENGTH = &H4 
Global Const DM_PAPERWI DTH = &H8 
Global Const DM_SCALE = &H10 
Global Const DM_COPIES = &H100 
Global Const DM_DE FAULT SOURCE = &H200 
Global Const DM_PRINTQUALITY = &H400 
Global Const DM_COLOR - &H800 
Global Const DM_DUPLEX = &H10G0 
Global Const DM_YRESOLUTION - &H2000 
Global Const DM_TTOPTION - &H4000 

f MCI Messages 

Global Const MCIWNDM_GETDEVICEID = WMJJSER + 100 
Global Const MCIWNDM__SENDSTRING = WM_USER + 101 
Global Const MCI WNDM_GET POSIT ION = WM_USER + 102 
Global Const MC I WNDM_GET S TART = WMJJSER + 103 
Global Const MC I WNDM_GET LENGTH = WM_USER + 104 
Global Const MCIWNDM_GETEND - WM_USER + 105 
Global Const MCIWNDM_GETMODE = WMJJSER +106 
Global Const MCIWNDMJSJECT = WMJJSER + 107 
Global Const MCIWNDM_SETZOOM = WMJJSER +108 
Global Const MCIWNDMJ3ETZOOM = WMJJSER + 109 
Global Const MCI WNDM_SET VOLUME = WM_USER + 110 
Global Const MC I WNDM__GET VOLUME = WM_USER + 111 
Global Const MCI WNDM_SETS PEED = WMJJSER +112 
Global Const MCIWNDM_GETSPEED = WMJJSER + 113 
Global Const MC I WN DM__S E T RE PEAT - WM_USER + 114 
Global Const MC I WN DM_G ETREPEAT = WM_USER + 115 
Global Const MC I WN DM__REAL I Z E = WMJJSER + 118 
Global Const MC I WNDM_SET TIME FORMAT = WMJJSER +119 
Global Const MC I WNDM_GET TIME FORMAT = WMJJSER +120 
Global Const MC I WN DM J/AL I DAT EME D I A = WM_USER + 121 
Global Const MCIWNDM_P LAY FROM = WM_USER + 122 
Global Const MCIWNDMJPLAYTO = WM_USER +123 
Global Const MCIWNDMJ^ET FILENAME - WMJJSER + 124 
: Global Const MCIWNDM_GET DEVICE = WM_USER + 125 
Global Const MC I WNDMJ3ET PALETTE = WMJJSER +126 
Global Const MCI WNDMjSET PALETTE = WMJJSER + 127 
niohal Const. MCTWNDM GRTERROR = WM USER + 1.28 
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Global Const MC I WNDM_SET TIMERS - WMJJSER + 129 
Global Const MCIWNDM_SETACTIVETIMER = WMJJSER + 130 
Global Const MCIWNDM_SETINACTIVETIMER = WM_USER + 131 
Global Const MCIWNDMJ3ETACTIVETIMER = WMJJSER + 132 

Global Const MCIWNDM_GETINACTIVETIMER = WMJJSER + 133 X 

Global Const MCIWNDM_NEW = WM_USER + 134 ~ ) 

Global Const MCIWNDMJ^HANGESTYLES = WM_USER + 135 

Global Const MCIWNDM_GETSTYLES = WMJJSER + 136 

Global Const MCIWNDM_GETALIAS » WMJJSER + 137 

Global Const MCIWNDM_RETURNSTRING = WMJJSER + 138 

Global Const MCIWNDM_PLAYREVERSE = WMJJSER + 139 

Global Const MCIWNDMJ3ETJSOURCE = WM_USER + 140 

Global Const MCIWNDM_PUT_SOURCE = WM_0SER +141 

Global Const MC IWNDM JSET_DEST « WMJJSER + 142 

Global Const MCIWNDM_PUT_DEST = WMJJSER +143 

Global Const MCIWNDM_CAN_PLAY - WM__USER +144 

Global Const MCIWNDM_CAN_WINDOW = WMJJSER +14 5 

Global Const MC I WN DM_C AN_RE CORD - WMJJSER +14 6 

Global Const MCIWNDM_CAN_SAVE = WMJJSER + 147 

Global Const MCIWNDM_CAN_EJECT « WM_USER + 148 

Global Const MCIWNDM_CAN_CONFIG = WM_USER + 149 

Global Const MCIWNDMJPALETTEKICK = WMJJSER + 150 

Global Const MCIWNDM OPENINTERFACE = WM USER + 151 



Sub AddGraphSeconds { ) 

f find out how many seconds 
• TblVar .Mo veLast 

NumSecs = TblVar . Fields ( "SECONDS" ) + 1 
.'NumSecs = AVILength / 1000 
IntSecs = NumSecs / 10 
TblVar . MoveFirst 

'move and set caption for each label 

GrLeft% = f _data . pnlGraph . Left 

FontTmp$ = f jiat a . FontName 

FSTmp = f jiata. FontSize 

f_data . FontName = "Small Fonts" 

f_data. FontSize = 6,75 

For x% = 0 To 9 

T% = Int((x% + 1) * IntSecs) 

S$ = Format$(Int (T% / 60), r, 00") & ":" & Format$ {T% Mod 60, "00") 

f_data.GSecs (x%) .Move Int{GrLeft% + (x% + 1) * f_data • pnlGraph . Width / 10 - f_data.TextW 
idth(S$) / 2) 

f_data.GSecs (x%) .Caption = S$ 
Next x% 

f_data . FontName « FontTmp$ 
fjiata. FontSize = FSTmp 
End Sub 

Sub centerform(F As Form) 

F.Left = (screen. Width - F. Width) / 2 

F.Top = (screen. Height - F. Height) / 2 
End Sub 

Function CleanString (SS As String) As String 
c$ = 
x = 1 

Do While x <= Len(SS) 
T$ = Mid$ (SS, x, 1) 
Select Case T$ 
Case 

c$ = c$ & "&&" 
Case Else 

c$ = c$ & T$ 
End Select 
x = x + 1 

Loop 

CleanString = c$ 
End Function 
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Sub ClearCurrentDB{) 

1 clear list of variables and query text 
f_query .List 1 .Clear 
f query . txtQuery = "" 
'clear data graph 
f_data . pnlGraph . Cls 
f_data.MaxPointer . Visible » False 
f_data.MaxPointer2. Visible = False 
f_data.MaxPointer3. Visible = False 
f_data.MinPointer .Visible = False 
f_data.MinPointer2. Visible = False 
f_data .MinPointer3. Visible = False 
f_data . LeadinPointer. Visible = False 
f _dat a. Leadout Pointer. Visible « False 
f_data.MaxPointer .Left =375 
f_data.MaxPointer2.Left = 375 
f_data.MaxPointer3.Left = 375 
f_data.MinPointer .Left = 375 
f_data.MinPointer2.Left = 375 
f_data.MinPointer3.Left = 375 
f data . LeadinPointer . Left = 375 
f_data. LeadoutPointer .Left = 375 
f_data .pnlSlider .Left =4 35 
f_data.Label2. Caption = "10" 
f_data.Label3. Caption » "0" 

End Sub 



117 As New Index 
120 As New Index 



Sub CreateNewModDB(FN$) 

Dim Tdl As New tabledef 
Dim II As New Index, 12 As New Index, 
Dim 14 As New Index, 15 As New Index, 
Dim 17 As New Index, 18 As New Index, 
Dim 110 As New Index, 111 As New Index 
Dim 113 As New Index, 114 As New Index 
Dim 116 As New Index, 
Dim- 119 As New Index, 
Dim 122 As New Index 
Dim Fl As New field, F2 As New field, 
Dim F4 As New field, F5 As New field, 
Dim F7 As New field, F8 As New field, 
Dim F10 As New field, Fll As New field 
Dim F13 As New field, F14 As New field 
Dim F16 As New field, F17 As New field 
Dim F19 As New field, F20 As New field 
Dim F22 As New field 



13 As New Index 

16 As New Index 

19 As New Index 

112 As New Index 

115 As New Index 

118 As New Index 

121 As New Index 

F3 As New field 

F6 As New field 

F9 As New field 

F12 As New field 

F15 As New field 

F18 As New field 

F21 As New field 



Err = 0 

If Exists (FN$) > 0 Then Kill FN$ 

Set NewDB = CreateDatabase ( FN$, DB_LANG_G E N ERAL ) 

If NewDB Is Nothing Then MsgBox "Couldn't create database " & Client: Exit Sub 
If Err <> 0 Then MsgBox "Error creating database: " & Error$(Err) 
'On Error GoTo EH CreateNewDB 



Tdl. Name 
Fl . Name 
If VArr( 
If VCtr 
If VCtr 
If VCtr 
If VCtr 
If VCtr 
If VCtr 
If VCtr 
If VCtr 
If VCtr 
If VCtr 
If VCtr 
Tf VCtr 



Data Table 
"T_DATA" 

= "SECONDS" : Fl.Type = DB_INTEGER: Tdl . Fields .Append Fl 

0) <> "" Then F2.Name = XArr(O): F2.Type - DB SINGLE: Tdl . Fields .Append F2 



> 1 Then F3.Name = XArr(l): 

> 2 Then F4.Name = XArr(2): 

> 3 Then FS.Name - XArr(3): 

> 4 Then F6.Name = XArr(4): 

> 5 Then F7.Name - XArr{5): 

> 6 Then F8.Name = XArr(6): 

> 7 Then F9.Name = XArr(7): 

> 8 Then FlO.Name = XArr(8): 

> 9 Then Fll. Name = XArr(9): 

> 10 Then F12.Name = XArr(lO) 

> 11 Then F13.Name = XArr(ll) 

> 12 Then Fl4.Name = XArrM^I 



F3.Type = DB_S INGLE : Tdl . Fields .Append F3 
F4.Type = DBJSINGLE: Tdl . Fields .Append F4 
F5.Type = DB_S INGLE : Tdl . Fields .Append F5 
F6.Type = DB_S INGLE: Tdl . Fields . Append F6 
F7.Type - DB_S INGLE: Tdl . Fields. Append F7 
F8.Type = DB_S INGLE: Tdl . Fields .Append F8 
F9.Type - DB_S INGLE: Tdl . Fields. Append F9 
FlO.Type = DB_S INGLE : Tdl . Fields .Append F10 
Fll. Type = DB_S INGLE: Tdl . Fields .Append Fll 
F12.Type = DB_S INGLE : Tdl. Fields. Append F12 
F13.Type = DB_S INGLE: Tdl . Fields .Append F13 
F14.Tvoe = DB SINGLE: Tdl . Fields . Aooend F14 
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If VCtr > 13 Then FIS.Name = XArr(13): F15.Type = DB_SINGLE: Tdl . Fields .Append F15 

If VCtr > 14 Then F16.Name » XArr(14): F16.Type « DB_S INGLE : Tdl . Fields . Append F16 

If VCtr > 15 Then F17.Name = XArr(15): F17.Type = DB_S INGLE : Tdl . Fields .Append F17 

If VCtr > 16 Then F18.Name = XArr(16): F18.Type = DBJSINGLE: Tdl . Fields .Append F18 

If VCtr > 17 Then F19.Name = XArr{17): F19.Type = DB_S INGLE: Tdl . Fields .Append F19 

If VCtr > 18 Then F20.Name = XArr{18): F20.Type = DB_SINGLE: Tdl . Fields .Append F20 

If VCtr > 19 Then F21.Name = XArr{19): F21.Type = DB_SINGLE: Tdl . Fields .Append F21 

If VCtr > 20 Then F22.Name - XArr(20): F22.Type = DB_S INGLE: Tdl . Fields .Append F22 

II. Name = "I_SECONDS": II. Fields = "SECONDS": II. Primary = True: II. Unique = True: Tdl. Index 
es. Append II 

If VArr{0) <> "" Then 12. Name = "I_" & XArr(O): 12. Fields = XArr(O): 12. Primary = False: 12. 
Unique = False: Tdl . Indexes .Appenc 

If VCtr > 1 Then 13. Name = "I_ 
e - False: Tdl . Indexes .Append 13 

If VCtr > 2 Then 14. Name - "I_ 
e = False: Tdl . Indexes . Append 14 

• If VCtr > 3 Then 15. Name = "I 
e « False: Tdl . Indexes .Append 15 

If VCtr > 4 Then 16. Name = "I_ 
e = False: Tdl . Indexes .Append 16 

If VCtr > 5 Then 17. Name = "I_ 
e = False: Tdl . Indexes . Append 17 

If VCtr > 6 Then 18. Name = "I_ 
e = False: Tdl . Indexes .Append 18 

If VCtr > 7 Then 1 9. Name = "I_ 
e - False: Tdl . Indexes .Append 19 

If VCtr > 8 Then 110. Name = "I " & XArr{8): 110. Fields = XArr{8): 110. Primary - False: 110. U 
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nique = False: Tdl . Indexes .Append 110 

If VCtr > 9 Then 111. Name = "I_" & XArr (9) 
nique = False: Tdl . Indexes .Append 111 



If VCtr > 12 Then 114. Name = "I 

4. Unique = False: Tdl . Indexes .Appenc 

If VCtr > 13 Then 115. Name = 

5. Unique = False: Tdl . Indexes .Appenc 

If VCtr > 14 Then 116. Name = "I 



111. Fields = XArr (9): 111. Primary = False: Ill.U 



If VCtr > 17 Then I 19. Name 
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2. Unique - False: Tdl . Indexes .Append 122 
NewDB.TableDefs. Append Tdl 



1 NewDB. Close 
Exit Sub 
EH_CreateNewDB: 

MsgBox "Error in CreateNewDB: " & Error? (Err) 
Exit Sub 

End Sub 

Function CreatePath (ByVal destPath$) As Integer 



1 Create the path contained in DestPath$ 

1 First char must be drive letter, followed by 

1 ^ " ;\" followed hv the oath, if anv. 
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screen. MousePointer = 11 



Add slash to end of path if not there already 



If Right$ (destPath$, 1) <> "\" Then 

destPath$ = destPath$ + "\ n 
End If 



1 Change to the root dir of the drive 



On Error Resume Next 

ChDrive destPath$ 

If Err <> 0 Then GoTo errorOut 

ChDir "\" 



1 Attempt to make each directory, then change to it 



BackPos = 3 

forePos = InStr(4 / destPath$, "\") 
Do While forePos <> 0 

Tempp$ = Mid$ (destPath$, BackPos + 1, forePos - BackPos - 1) 



Err - 0 
MkDir Tempp$ 

If Err <> 0 And Err <> 75 Then GoTo errorOut 

Err - 0 
ChDir Tempp$ 

If Err <> 0 Then GoTo errorOut 
BackPos ~ forePos 

forePos = InStr (BackPos + 1, destPath$, "\") 

Loop 

CreatePath = True 
screen. MousePointer = 0 
Exit Function 



errorOut : 

MsgBox "Error While Attempting to Create Directories on Destination Drive." 
CreatePath = False 
screen .MousePointer = 0 

End Function 



Sub DBCompact (DBPath As String) 'fed a path to a database file 
DbStub$ = Left$ (DBPath, Len ( DBPath) - 3) 
DbNew$ = DbStub$ & "new" 
DB01d$ = DbStub$ & "mdb" 

! if there is enough free diskspace, compact database 
If FreeDiskSpace (Left$ (DBPath, 1)) > Len(DBPath) Then 

CompactDatabase DB01d$, DbNew$ 

Kill DB01d$ 

Name DbNew? As DB01d$ 

Else 

MsgBox "Not enough free disk space to compact database" 
End If 
End Sub 

Sub DBOpen (DBF$ ) 
.'. Dim RtnString As . String * 64 
f_about . Show 

f about .Timer 1. Enabled = True 
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ClearCurrentDB 
x% = InStr(DBF$, "\") 
Do While x% 
ct% = x% 

x% = InStr(ct% + 1, DBF$, "\") 

Loop 

DBPath$ = Left$(DBF$, ct%) 

DBFile$ = Right$(DBF$, Len (DBF$ ) - ct%) 

f_data. Caption - "Responses: " & Left$ (DBFile$ , Len{DBFile$) - 4) 
'locate AVI's from INI file 

DBIniFile$ = DBPath$ & Lef t$ (DBFile$ / Len {DBFile$ ) - 3) & "ini" 

di% = GetPrivateProfileString("Main", "AVIPath", RtnString, 63, DBIniFile$) 

AVIPath$ - FixAPIString(RtnString) 
LoadVideoFiles2 AVIPath$ 
If NumAVIs = 0 Then 
Beep 

MsgBox "Database cannot be opened: no video files," 
f_about . Timer 1 . Enabled = False 
Unload f_about 
Exit Sub 
End If 

'fill variable list from database 
Set NewDB = OpenDatabase { DBF$ , True, False) 
Set TblVar - NewDB . OpenTable ( "T_DATA" ) 
For i = 1 To TblVar. Fields. Count - 1 

f_query.Listl.AddItem UCase$ (TblVar . Fields (i) .Name) 
Next i 

AddGraphSeconds 

'Get AVILeadin, AVILeadout 

di% = Get PrivateProfileString ("Main", "AVILeadin", HM , RtnString, 63, DBIniFile$) 
AVILeadin = Val ( FixAPIString (RtnString) ) 

di% = GetPrivateProfileString( H Main", "AVILeadout", "", RtnString, 63, DBIniFile$) 
AVILeadout = Val (FixAPIString (RtnString) ) 

f_about .Timerl .Enabled « False 
Unload f__about 

End Sub 

Function DeviceColors { ) As Long 
FhDC% = GetDC(f_main.hWnd) 

DeviceColors - GetDeviceCaps (FhDC% , 14) * 2 A GetDeviceCaps (FhDC%, 12) 
End Function 

Sub DrawGraphf) 

TblVar. Index « "I_SECONDS" 
TblVar . MoveLast 

f_dat a. pnlGraph. ScaleWidth = TblVar ( "SECONDS") 
Barlnc = Int (f_data . pnlGraph . ScaleWidth / 10) 
f TblVar . MoveFirs t 

If MaxYl = 10 Then GTop = 10 Else GTop = Int(MaxYl) + 1 
GBot - Int(MinYl) 

f_data. pnlGraph. ScaleHeight = GTop - GBot 
f_data.Label2. Caption - Format$ (GTop) 
f _dat a. Label3. Caption = Format$ (GBot ) 
x% = 0 

Dsl .MoveFirst 

1 f_main.pnlStatus. FloodType = 1 
' f_main.pnlStatus . FloodPercent = 0 
f_data . pnlGraph . CurrentX = 0 

fjdata. pnlGraph. CurrentY = GTop - Dsl(NewFld$) 
Do While Not (Dsl. EOF) 

f_data. pnlGraph. Line -(x%, GTop - Dsl (NewFld$) ) , RED 

Dsl.MoveNext 

»Tf x% Mod R^rTnn = 0 Th«n f ma i n . r>n 1 Status . FloodPercent = Int fx% / f data . pnlGraph . Seal 
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eWidth * 100) 

If x% Mod Barlnc = 0 Then DoEvents 
x% = x% + 1 

Loop 

f_dat a. pnlGraph. Cur rentX - 0 

f_data. pnlGraph. CurrentY = 0 } 

» mi f_data.pnlGraph. Print "StDev=" & Format$ (MyStdev, "0.00") & " Var- n & Format $ (My 

Var, "0.00") 

f f_main.pnlStatus.FloodType = 0 

1 Place max and min pointers 

f_data.MaxPointer.Left » 375 + Int(MaxXl / f_data.pnlGraph. ScaleWidth * f_data.pnlGraph.Widt 

h) 

f_data.MaxPointer2.Left = 375 + Int (MaxX2 / f_dat a . pnlGraph. ScaleWidth * fdata .pnlGraph . Wid 

th) 

f_data.MaxPointer3.Left = 375 + Int(MaxX3 / f_data .pnlGraph . ScaleWidth * f_data .pnlGraph. Wxd 

th) 

. f_data.MinPointer.Left = 375 + Int (MinXl / f_data .pnlGraph. ScaleWidth * f_data . pnlGraph . Widt 

h) 

f_data.MinPointer2.Left = 375 + Int(MinX2 / f_data .pnlGraph . ScaleWidth * f_data .pnlGraph. Wid 

th) 

f_data.MinPointer3.Left = 375 + Int(MinX3 / f_data .pnlGraph. ScaleWidth * f_data . pnlGraph. Wid 

th) 

f_data.LeadinPointer.Left = 375 + Int (AVILeadin / f_data . pnlGraph. ScaleWidth * f_data .pnlGra 
ph. Width) 

f_data.Leadout Pointer .Left = 375 + f_data . pnlGraph . Width - Int (AVILeadout / f_data .pnlGraph . 
ScaleWidth * f_data .pnlGraph .Width) 

f_data.MaxPointer. Visible = True 

f_data.MaxPointer2 .Visible = True 

f_data.MaxPointer3. Visible = True 

f_data.MinPointer .Visible = True 

f_data.MinPointer2 .Visible = True 

f_data.MinPointer3. Visible = True 

f_data. LeadinPointer . Visible = True 

f_data. Leadout Pointer . Visible = True 
End Sub 

Function Exists (F$) As Integer 

Dim FStruct As OFSTRUCT 

di% - OPenFile(F$, FStruct, 0F_EXIST) 

Exists = di% 
End Function 



Sub FillGradForm (Target As Form, MyColor As String) 
On Error GoTo EH 

Dim FormY As Integer, CValue As Integer, DeltaY As Integer 
Dim i As Integer, Result As Integer, OldMode As Integer 
Dim hBrush As Integer 
Dim Region As RECT 



STEPS = 255 

1 Save old scale mode and switch to Pixel mode. 



OldMode = Target .ScaleMode 
Target . ScaleMode = 3 1 Pixel 

1 Divide the form into STEPS regions. 

FormY - Target . ScaleHeight 
DeltaY = FormY \ STEPS 



1 Set coordinates of first region to fill. 
Region. Left - 0 

Region. Right = Target . ScaleWidth 
Region. Top = 0 
Region. Bottom = DeltaY 



1 St-^rtinrr color. 
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CVa lue =255 

For i = 1 To STEPS 

Select Case MyColor 
Case "red" 

hBrush = CreateSolidBrush(RGB(CValue, 0, 0)) 
Case "green" 

hBrush = CreateSolidBrush (RGB (0, CValue, 0)) 
Case "blue" 

hBrush - CreateSolidBrush ( RGB (0, 0 f CValue)) 
Case "gray" 

hBrush = CreateSolidBrush (RGB (CValue, CValue, CValue)) 
End Select 

Call FillRect (Target . hDC, Region, hBrush) 
di% = DeleteObject (hBrush) 
Region. Top = Region . Bottom 
Region. Bottom - Region. Bottom + DeltaY 
CValue = CValue - 1 
Next i 

1 Fill the remainder of the form with black. 

Region. Bottom = Region. Bottom + STEPS 
hBrush = CreateSolidBrush (RGB (0, 0, 0)) 
Call FillRect (Target. hDC, Region, hBrush) 
di% = DeleteObject (hBrush) 

1 Reset the original scale mode. 

Target .ScaleMode = OldMode 

Exit Sub 

EH: 

MsgBox "Error in FillGradForm" 
Exit Sub 
End Sub 

Sub FindAVIFiles (FileSpec As String, SearchPath As String) 
ReDim DirName(0 To 15) As String 
Dim DirCount As Integer 

Dim Filename As String, Attributes As Integer 
Dim x As Integer 

If Right? (SearchPath, 1) <> "\" Then SearchPath = SearchPath & "\" 
DirCount = 0 

Filename - Dir$ (SearchPath & FileSpec, AT T R_NORMAL + ATTR_SYSTEM + ATTR_HIDDEN) 
Do Until Filename = 

TArr (NumAVIs) = SearchPath & Filename 

NumAVIs - NumAVIs + 1 

. f_main.pnlStatus. Caption = "Looking for video files on disk " & Left$ (SearchPath, 1) & n 
found:" & Format$ (NumAVIs ) 

Filename = Dir$ 

DoEvents 

If CancelFlag Then Exit Sub 

Loop 

Filename - Dir$ (SearchPath & "*.*", AT T R_NORMAL + ATTR_SYSTEM + ATTR_HIDDEN + ATTR_DIRECTORY) 
Do Until Filename = "" 

If Filename <> "." And Filename <> ".." Then 

Attributes = GetAttr (SearchPath & Filename) 
If (Attributes And ATTRJ3I RECTORY) Then 
If DirCount > UBound (DirName) Then 

ReDim Preserve DirName (0 To DirCount + 15) 
End If 

DirName (DirCount ) = SearchPath & Filename 
DirCount = DirCount + 1 
End If 
End If 

Filename - Dir$ 
DoRvents 
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If CancelFlag Then Exit Sub 

Loop 

For x = 0 To DirCount - 1 

FindAVIFiles FileSpec, DirName(x) 
Next x \ 

I j 

End Sub 



Sub FindHisLos (NewFld$) 
Dim Ds2 As snapshot 
Dim IsLeadin As Integer 
ExRange% = 10 
IsLeadin = False 
SQLLEAD$ = 

TblVar. Index = "I" & NewFld? 

SQLMAIN$ = "SELECT MAX { [ " & NewFld$ & "] ) AS QMaxl, " 

SQLMAIN$ = SQLMAIN$ & "MIN([" & NewFld$ & "] ) AS QMinl FROM T_DATA" 

SQLTOP$ = "SELECT MAX([" & NewFld$ & "] ) AS QMaxl, MIN([" & NewFld$ & ")) AS QMinl, " 
SQLTOP? = SQLTOP$ & "STDEV([" & NewFld$ & "] ) AS QStdevl, " 
SQLTOP$ = SQLTOP$ & "VAR([" & NewFld$ & "]) AS QVarl FROM T_DATA" 
If AVILeadin > 0 Then 

SQLTOP$ = SQLTOP$ & " WHERE SECONDS > " & Format $ (AVILeadin) 

SQL LEAD $ - " AND SECONDS > " & Format$ {AVILeadin) 

IsLeadin = True 
End If 

If AVILeadout > 0 Then 
If IsLeadin Then 

SQLTOP$ - SQLTOP$ & " AND SECONDS < " & Format $( Int (AVILength / 1000) - AVILeadout) 

Else 

SQLTOP$ = SQLTOP$ & " WHERE SECONDS < " & Format $ (Int {AVILength / 1000) - AVILeadout 

) 

End If 

SQLLEAD$ = SQLLEAD$ & " AND SECONDS < " & Format$ ( Int (AVILength / 1000) - AVILeadout) 
End If 

Set Ds2 = NewDB.CreateSnapshot (SQLTOP$) 
MaxYl - Ds2 ("QMaxl") 
. 'MyCrit$ - "[" & NewFld$ &"]="& Format $ (Max Yl ) 
'MyCrit$ - MyCrit$ & SQLLEADIN$ 
'Dsl. FindFirst MyCrit$ 
'MaxXl = Dsl ("SECONDS") 
TblVar. Seek "=", MaxYl 
MaxXl = TblVar ( "SECONDS" ) 
MinYl - Ds2 ("QMinl") 

MyCrit$ = "[" & NewFld$ & "] - " & Format$ (MinYl) 

MyCrit$ - MyCrit? & SQLLEAD$ 

Dsl . FindFirst MyCrit$ 

MinXl = Dsl ("SECONDS") 

•TblVar. Seek "=", MinYl 

'MinXl = TblVar ("SECONDS") 

MyStdev = Ds2 ( "QStdevl") 

MyVar - Ds2{ "QVarl") 

SQLMAIN2$ - SQLMAIN$ & " WHERE SECONDS NOT BETWEEN " & Format$ (MaxXl - ExRange%) & " AND " & 
Format $ (MaxXl + ExRange%) 

SQLMAIN2$ = SQLMAIN2$ & " AND SECONDS NOT BETWEEN " & Format $ (MinXl - ExRange%) & " AND " & 
Format$ (MinXl + ExRange%) 

SQLMAIN2$ - SQLMAIN2$ & SQLLEAD$ 

Set Ds2 = NewDB.CreateSnapshot (SQLMAIN2$) 

MaxY2 = Ds2( "QMaxl") 

MyCrit$ = "[" & NewFld$ & "] = " & Forma t$ (MaxY2) 

MyCrit$ - MyCrit$ & " AND SECONDS NOT BETWEEN " & Format? (MaxXl - ExRange%) & " AND " & 1 
at$ (MaxXl + ExRange%) 

MyCrit$ - MyCrit$ & SQLLEAD$ 
Dsl. FindFirst MyCrit$ 
MaxX2 = Dsl ("SECONDS") 
MinY2 - Ds2( "QMinl") 
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MyCrit$ = MyCrit$ & H AND SECONDS NOT BETWEEN " & Forma t $ (MinXl - ExRange%) & " AND " & Form 
at$(MinXl + ExRange%) 

MyCrit$ - MyCrit$ & SQLLEAD$ 
Dsl.FindFirst MyCrit? 

MinX2 - Dsl ("SECONDS") •-. 

SQLMAIN3$ = SQLMAIN$ & 11 WHERE SECONDS NOT BETWEEN " & Format$ (MaxXl - ExRange%) & " AND " & 
Format? (MaxXl + ExRange%) 

SQLMAIN3? = SQLMAIN3? & " AND SECONDS NOT BETWEEN " & Format? (MaxX2 - ExRange%) & " AND " & 
Format? (MaxX2 + ExRange%) 

SQLMAIN3? = SQLMAIN3? & " AND SECONDS NOT BETWEEN " & Format? {MinXl - ExRange%) & " AND " & 
Format? (MinXl + ExRange%) 

SQLMAIN3? = SQLMAIN3? & " AND SECONDS NOT BETWEEN " & Format? <MinX2 - ExRange%) & " AND " & 
Format? (MinX2 + ExRange%) 

SQLMAIN3? = SQLMAIN3? & SQLLEAD? 

Set Ds2 = NewDB . CreateSnapshot (SQLMAIN3?) 

MaxY3 = Ds2 ( "QMaxl" ) 

MyCrit? = "[" & NewFld? & "] = " & Format? (MaxY 3) 

MyCrit? = MyCrit? & n AND SECONDS NOT BETWEEN " & Format? (MaxXl - ExRange%) & " AND " & Form 
at?(MaxXl + ExRange%) 

MyCrit? = MyCrit? & " AND SECONDS NOT BETWEEN " & Format? (MaxX2 - ExRange%) & n AND " & Form 
at?(MaxX2 + ExRange%) 

MyCrit? = MyCrit? & SQLLEAD? 
Dsl.FindFirst MyCrit? 
MaxX3 = Dsl ("SECONDS") 
MinY3 = Ds2("QMinl") 

MyCrit? - "[" & NewFld? & "] = " & Format? (MinY3) 

MyCrit? = MyCrit? & " AND SECONDS NOT BETWEEN " & Format? (MinXl - ExRange% ) & " AND " & Form 
at? (MinXl + ExRange%) 

MyCrit? - MyCrit? & " AND SECONDS NOT BETWEEN " & Format? (MinX2 - ExRange% ) & " AND " & Form 
at?(MinX2 + ExRange%) 

MyCrit? = MyCrit? & SQLLEAD? 
Dsl.FindFirst MyCrit? 
MinX3 = Dsl ("SECONDS") 
Ds2. Close 

'write the results to the INI 

NS? = Format? (MaxXl) & "/» & Format? (MaxX2 ) & "/" & Format? (MaxX3) & "/" 

NS? - NS? & Format? (MinXl) & "/" & Format? (Mi nX2 ) & "/" & Format? (MinX3 ) & "/" 

NS? = NS? & Format? (MaxYl) & "/" & Format? (MinYl ) 

x% = WritePrivateProfileString ("Main", NewFld?, NS?, DBIniFile?) 

If x% = 0 Then 

fh% = FreeFile 

Open DBIniFile? For Append As fh% 
Print #fh%, NewFld? & "=" & NS? 
Close #fh% 
End If 
End Sub 



Function FixAPIString? (ByVal test?) 

FixAPIString? - Trim (Left? (test?, InStrftest?, Chr?(0)) - 1)) 
End Function 



Function FixFieldName (S? ) As String 
i - InStr(S?, ".") 
Do While i > 0 

S? = Left?(S?, i - 1) & Right? (S?, Len(S?) - i) 

i = InStr(S?, ".") 

Loop 

i = InStr(S?, "=") 
Do While i > 0 

S? = Left?(S?, i - 1) & Right? (S?, Len(S?) - i) 

i - InStr(S?, "=") 

Loop 

FixFieldName = S? 
End Function 



Sub FormExplode (Target As Form) 



"ovnl nHoq " ^ form h>\/ Hrawinn siippprsi wpl w 1 ara&T r<=»r^r annl PR . 
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' using the form's background color, to fill the form area. 
1 Should be called from the Form_JLoad event procedure. 

' Number of steps to use in expanding the rectangle. More steps 
' result in a slower but smoother "explosion." 



Const STEPS =40 



Dim FormWidth As Integer, FormHeight As Integer 
Dim Count As Integer, x As Integer, Y As Integer 
Dim XStep As Integer, YStep As Integer 
Dim hDCScreen As Integer, hBrush As Integer 
Dim MyRect As RECT 

♦ Get the form's coordinates and detemine its height and width. 

Call GetWindowRect (Target .hWnd, MyRect) 

FormWidth = MyRect. Right - MyRect. Left 
FormHeight = MyRect . Bottom - MyRect. Top 

1 Get the screen's device context. 

hDCScreen - GetDC(O) 

' Create a solid brush that uses the form's background color. 

hBrush = CreateSolidBrush (Target .BackColor) 
di% = SelectObject (hDCScreen, hBrush) 

1 Draw successively larger rectangles until the form's 
' entire area is filled. 



For Count = 1 To STEPS 

XStep - FormWidth * (Count / STEPS) 

YStep - FormHeight * (Count / STEPS) 

x - MyRect. Left + (FormWidth - XStep) / 2 

Y = MyRect. Top + (FormHeight - YStep) / 2 

Call Rectangle (hDCScreen, x, Y, x + XStep, Y + YStep) 
Next Count 

' Release the device context and brush, and display the form. 



di% = ReleaseDC(0, hDCScreen) 
di% = DeleteObject (hBrush) 
Target .Visible = True 



End Sub 



Function FormLoaded (MyForm As String) 
FormLoaded = False 
For x = 0 To Forms. Count - 1 

If Forms (x) .Tag = MyForm Then 
FormLoaded = True 
Exit Function 
End If 
Next x 
End Function 

Function FreeDiskSpace (Drive As String) As Long 
01dDir$ = Left$ (CurDir$, 1) 
ChDrive Drive 

FreeDiskSpace = DiskSpaceFree ( ) 
ChDrive 01dDir$ 
End Function 



Function GetAviSize (AVIPath As String) As Long 



On Error GoTo EH GetAviSize 
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•GetAviSize= 

Exit Function 
EH_GetAviSize: 

MsgBox "Error in GetAviSize: " & Error (Err) 

Exit Function 
End Function 



Function GetHisLosFromINI% (VN$ ) 
Dim RtnString As String * 128 

di% = GetPrivateProfileString("Main", VN$, " n , RtnString, 127, DBIniFile$) 
If di% = 0 Then GetHisLosFromlNI = 0: Exit Function Else GetHisLosFroralNI = 1 
DS$ = FixAPIString (RtnString) 
x = InStr(DS$, "/") 
MaxXl = Left$(DS$, x - 1) 
. DS$ » Mid$(DS$, x + 1) 
x = InStr(DS$, "/") 
MaxX2 = Left$(DS$, x - 1) 
DS$ = Mid$(DS$, x + 1) 
x = InStr(DS$, "/") 
MaxX3 = Left$(DS$, x - 1) 
DS$ = Mid$(DS$, x + 1) 
x = InStr(DS$, "/") 
MinXl = Left${DS$, x - 1) 
DS$ = Mid$ (DS$, x + 1) 
x « InStr(DS$, "/") 
MinX2 - Left$(DS$, x - 1) 
DS$ = Mid$(DS$, x + 1) 
x = InStr(DS$, "/") 
MinX3 = Left$(DS$, x - 1) 
DS$ - Mid$(DS$, x + 1) 
x = InStr(DS$, "/") 
MaxYl = Left$(DS$, x - 1) 
DS$ = Mid$(DS$, x + 1) 
MinYl *= DS$ 
End Function 

Sub GetSysInfoO 

Dim x As Long, DOSVer As Long 

Dim WinMajor As Integer , WinMinor As Integer 

Dim DOSMajor As Integer, DOSMinor As Long 

Dim i As Integer 

■ Get DOS and Windows versions, 
x « GetVersion() 
DOSVer = x \ &H10000 
WinMajor = x And &HFF 
WinMinor = (x And &HFFF) \ 256 
DOSMinor = DOSVer And &HFF 
DOSMajor = DOSVer \ 256 

DOSVersion$ = "DOS version " & Str$ (DOSMajor) & "." & Right$ (Str$ (DOSMinor) , Len (St r$ { DOSMinor ) ) 
- 1) 

WinVersion$ « "Windows version " & Str$ (WinMajor) & & Right$ (Str$ (WinMinor ) , Len (Str$ (WinMin 

or)) - 1) 

T Get free memory. 

Free$ = "Free memory =" & Str$ (GetFreeSpace (i) ) & " bytes." 

' Get the Windows status flags, 
x = GetWinFlags () 

1 Get CPU type. 

If x And WFJ2PU286 Then " . 

CPU$ = "CPU : 80286" 
Elself x And WF__CPU38 6 Then 

:• CPU$ = "CPU: 8038 6" 
Elself x And WF_CPU48 6 Then 

• CPU$ - "CPU: 80486" 
Else 

rPHS = "CPM: Unknown " 
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End If 

r co-processor present? 
If x And WF_80x87 Then 

MathCO$ = "Math co-processor: present" 

Else 

MathCO$ = "Math co-processor: not present" 
End If 

1 EMS Frame type. 
If x And W F_L ARG E FRAME Then 
EMS$ = "EMS frame: large" 

Else 

EMS$ = "EMS frame: small" 
End If 

f Mode . 

If x And WF^ENHANCED Then 

Mode$ - "Windows mode: enhanced" 

Else 

Mode$ = "Windows mode: standard" 
End If 

1 Get keyboard type, 
i = GetKeyboardType(O) 
Select Case i 
Case 1 

KT$ = "IBM PC/XT, or compatible (83-key) keyboard" 
Case 2 

KT$ = "Olivetti ICO (102-key) keyboard" 
Case 3 

KT$ = "IBM AT (84-key) or similar keyboard" 
Case 4 

KT$ = "IBM Enhanced (101- or 102-key) keyboard" 
Case 5 

KT$ - "Nokia 1050 or similar keyboard" 
Case 6 

KT$ = "Nokia 914 0 or similar keyboard" 
Case 7 

KT$ = "Japanese keyboard" 
Case Else 

KT$ = "Unknown keyboard type" 
End Select 

1 Number of function keys, 
i = GetKeyboardType(2) 

End Sub 

Function GetSystemDir$ { ) 

Dim Sys As String * 256 

x = GetSystemDirectory (Sys, Len(Sys)) 

x = InStrd, Sys, Chr$(0)) 

GetSystemDir$ = Left$(Sys, InStr(Sys, Chr$(0)) - 1) 
End Function 

Function Get Volume { ) As Integer 

mcihwnd « dwGetControlHwnd ( f_video.MCIWndl (0 ) ) 

di% = SendMessage (mcihwnd, MCIWNDM_GETVOLUME, 0, 0) 

GetVolume - Int(di%) 

End Function 

Sub GraphClick(x As Single) 
TmpMode$ = 

If VMode = "Play" Then 

TmpMode$ = "Play" 

VideoStop 
End If 

TmpPos = Int (AVILength * x / fjiata . pnlGraph . ScaleWidth) 

TmnTnt = 0 
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i - 0 

TmpTot = f _ video .MCI Wndl (0) .Length 
Do While TmpPos TmpTot 
i - i + 1 

TmpTot = TmpTot + f_video . MCIWndl (i) . Length 

Loop 

TmpCurAVI = i 

If TmpCurAVI <> Cur AVI Then 

f_jvideo .MCI Wndl (CurAVI ) .Visible = False 

CurAVI = TmpCurAVI 

SetPrevAVITot 
End If 

f_video.MCIWndl (CurAVI ) . Position = TmpPos - PrevAVITot 
DoEvents 

f_video . MCIWndl (CurAVI ) . Visible = True 
If TmpMode$ = "Play" Then 

VideoPlay 
End If 
End Sub 

Sub ImportDIF {DBF$, MyDB$) 
Dim FileNum As Integer 
Dim DArr() As String * 3 

'find root of DBF$ 
x - Len (DBF$) 

Do While InStr ("\:", Mid$ (DBF$, x, 1)) =0 
x = x - 1 

Loop 

DBPath$ - Lef t$ (DBF$, x) 

DBFilePat? = Mid$(DBF$, x 4- 1, Len (DBF$) - x - 5) 

'On Error GoTo EH_Import Data 
'how many DIF files are there? 

fjnaain.pnlStatus .Caption = "Counting DIF files ..." 
NumDifs% = 0 

DIFFilter$ = Lef t$ (DBF$ , Len (DBF$ ) - 5) & "*.dif" 

FN$ = Dir$ (DIFFilter$, AT T R_NORMAL Or ATTR_HIDDEN Or ATTR_SYSTEM Or ATTRDI RECTORY) 
Do While FN$ <> "" 

NumDifs% « NumDifs% + 1 

FN$ = Dir$ 

Loop 

'copy file to string 
Open DBF$ For Input As 1 
S$ - Input$(LOF(l) , 1) 
Close 1 

'identify variable names and put into array 
fjnain.pnlStatus . Caption = "Identifying variables ..." 
VCtr =0 

S$ = Mid$(S$, InStr (S$, "Sec 59") + 8) 

q$ = S$ 

Do 

S$ - Mid$(S$, InStr (S$, Chr(34)) + 1) 

XI - InStr (S$, Chr (34) ) 

T$ - Left$(S$, XI - 1) 

VCtr = VCtr +1 

S$ = Mid$(S$, XI + 1) 
Loop Until InStr(S$, Chr{34)) = 0 
ReDim VArr(VCtr) 
ReDim XArr(VCtr) 
S$ » q$ 
NN = 0 
Do 

S$ = Mid$(S$, InStr <S$, Chr (34)) + 1) 
XI - InStr (S$, Chr (34) ) 
T$ = Left$(S$, XI - 1) 
VArr /NN \ = TS 
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XArr(NN) = FixFieldName (T$ ) 

' f_query.Listl.AddItem UCase$ (FixFieldName <T$) ) 
NN = NN + 1 
S$ = Mid$(S$, XI + 1) 
Loop Until InStr(S$, Chr(34)) = 0 



'build database file 

f_main.pnlStatus .Caption = "Building database ..." 

CreateNewModDB MyDB$ 

ReDim DArr (NumDifs% * 60, VCtr} 

'read data from files into array 
For n = 0 To NuraDifs% - 1 

FN$ = DBFilePat$ & Format$(n) & " . DIF" 

f_main.pnlStatus. Caption = "Processing file " & FN$ & " ..." 
Open DBPath$ & FN$ For Input As 1 
S$ = Input$ (LOF(l) ,1) 
Close 1 

For m - 0 To VCtr - 1 

S$ = Mid${S$, InStr(S$, Chr(34) & VArr(m) & Chr(34)) + Len{VArr(m)) + 5) 
For r = 0 To 59 

DArr((n) * 60 + r, m) = Mid$(S$, 1 + r * 8, 3) 
Next r 
Next m 
Next n 

'insert data from array into database 
Set TblVar = NewDB, OpenTable { "T_DATA") 
For n = 0 To NumDifs% * 60 - 1 

If n Mod 10 = 0 Then f_raain . pnlStatus .Caption = "Processing second " & Format$ (n) 

TblVar. AddNew 

TblVar {"SECONDS") = n 

For m = 0 To VCtr - 1 

TblVar (XArr(ra) ) = Val(DArr(n, m) ) 

Next m 

TblVar. Update 
Next n 

Close 1 

'find highs and lows for each variable 
For m = 0 To VCtr - 1 

NewFld$ = UCase$ (XArr (m) ) 

SQLST$ - "SELECT SECONDS, [" & NewFld$ & "] FROM T_DATA" 
Set Dsl = NewDB. CreateSnapshot (SQLST$) 

f_main.pnl Status .Caption = "Finding highs and lows for " & NewFld$ 
FindHisLos NewFld$ 
Dsl. Close 
Next m 

Exit Sub 
EH_ImportDataCancel : 
Exit Sub 

EH_ImportData: 

If Err <> 5 Then 

MsgBox "Error in ImportData:" & Error (Err) 
End If 
Exit Sub 

End Sub 

Function IsBlankFloppy (destPath$) As Integer 
IsBlankFloppy = True 

FN$ = Dir$(destPath$ & "*.*", ATT R_NORMAL Or ATTR__HI DDEN Or ATTR_SYSTEM Or ATT R_D I RECTORY) 
Do While FN$ <> " " 
MsgBox FN$ 

If FN$ <> ".» And FN$ <> ".." Then 
IsBlankFloppy = False 
F.xif. Do 
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End If 
FN$ = Dir$ 

Loop 
End Function 

Function IsReraoveableDrive ( Drive As String) As Integer 

di% = GetDriveType( InStr ("abcdefghijklmnopqrstuvwxyz", LCase$ (Left$ (Drive, 1))) - 1) 
If di% = 2 Then IsRemoveableDrive = True Else IsRemoveableDrive = False 

End Function 

Function IsValidPath (destPath$, ByVal Default Drive$) As Integer 



1 Remove left and right spaces 
i — 

destPath? = RTrim$ (LTrim$ {destPath$ ) ) 

i . . 

1 Check Default Drive Parameter 
i 

If Right$( Default Drive$, 1) <> ":" Or Len (Default Drive$) <> 2 Then 

MsgBox "Bad default drive parameter specified in IsValidPath Function. You passed, 
+ DefaultDrive$ + Must be one drive letter and »»:»". For example, ""C: ,,n , ""D:"".. 

GoTo parseErr 

End If 



Insert default drive if path begins with root backslash 



If Left$(destPath$, 1) = "\" Then 

destPath$ = DefaultDrive + destPath$ 
End If 



1 check for invalid characters 



On Error Resume Next 
tmp$ - Dir$ (destPath$) 
If Err <> 0 Then 

GoTo parseErr 
End If 



Check for wildcard characters and spaces 



If (InStr (destPath$, "*") <> 0) Then GoTo parseErr 
If (InStr (destPath$, "?") <> 0) Then GoTo parseErr 
If (InStr (destPath$, " ") <> 0) Then GoTo parseErr 



• Make Sure colon is in second char position 
i , , 

If Mid$ (destPath$, 2, 1) <> Chr$(58) Then GoTo parseErr 



Insert root backslash if needed 



If Len(destPath$) > 2 Then 

If Right$(Left$(destPath$, 3), 1) <> "\ n Then 

destPath$ = Lef t$ (destPath$ , 2) + "\" + Right$ (destPath$, Len (destPath$ ) - 2) 

End If 
End If 



1 Ch^ok drive to install on 



Modulel - 32 

i 

Drive$ - Left$ (dest Path$, 1) 

ChDrive (Drive$) f Try to change to t 

he dest drive 

If Err <> 0 Then GoTo parseErr \ 

{ } 

i 

• Add final \ 
t 

If Right$(destPath$, 1) <> "\ n Then 

destPath$ - destPath$ + w \" 
End If 



1 Root dir is a valid dir 

i „ 

If Len (destPath$) = 3 Then 

If Right$ (destPath$, 2) = ":\" Then 
GoTo ParseOK 

End If 
End If 



i 

1 Check for repeated Slash 



If InStr {dest Path$, "\\") <> 0 Then GoTo parseErr 

i . 

1 Check for illegal directory names 

i 

legalChar$ = "!#$%&' () -01234 5678 90ABCDEFGHI JKLMNOPQRSTUVWXYZ A _M " 
BackPos = 3 

forePos = InStr (4, destPath$, "\") 
Do 

Tempp$ - Mid$ (dest Pat h$, BackPos + 1, forePos - BackPos - 1) 



f Test for illegal characters 

T 

For i = 1 To Len<Terapp$) 

If InStr (legalChar$, UCase$ (Mid$ (Tempp$ / i, 1))) =0 Then GoTo parseErr 
Next i 

i , 

1 Check combinations of periods and lengths 



periodPos = InStr (Tempp$, " .") 
Length = Len(Tempp$) 
If periodPos = 0 Then 

If Length > 8 Then GoTo parseErr 1 Base too long 

Else 

If periodPos > 9 Then GoTo parseErr 1 Base too long 

If Length > periodPos + 3 Then GoTo parseErr 1 Extension too long 

If InStr (periodPos + 1, Tempp$ / "-.") <> 0 Then GoTo parseErr 1 Two periods not allow 

ed 

End If 

BackPos = forePos 

forePos - InStr (BackPos + 1, destPath$, "\") 
Loop Until forePos = 0 

ParseOK: 

IsValidPath = True 
Exit Function 

parseErr: 

IsValidPath = False 
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Sub LaunchLastDBO 

Dim RtnString As String * 128 

screen .MousePointer = 11 

Modlni? = app.Path & "\modular.ini" 

di% « GetPrivateProfileString("Main", "LastDB" , "", RtnString, 127, ModIni$) 
CurDBPath = FixAPIString (RtnString) 
If Len (CurDBPath) Then DBOpen CurDBPath 
screen. MousePointer = 0 
End Sub 

Sub LoadVideoFiles2 (DBF$) 'ex: "clinton* . avi" 
Dim x, Y, z, n As Integer 
Dim RtnString As String * 16 
■On Error GoTo EH_LoadVideoFiles2 

'unload all but first mciwndx 

i = 0 

Do 

If f_video. Controls (i) .Tag - "newraciwnd" Then Unload f_video . Controls ( i ) Else i s i M 
Loop Until i >= f_video. Controls .Count 
f_video.MCIWndl (0) .Filename « r,M 
f_video.pnlVidFrame. Visible = False 
DoEvents 
NumAVIs = 0 

'find all .avi files and put them into TArr 

DBIniFile$ = DBPath? & Left$ ( DBFile$, Len(DBFile$) - 3) & "ini" 

di% = GetPrivateProfileString("Main", "AVIDrives", "", RtnString, 16, DBIniFile$) 
AVIDrives$ = FixAPIString (RtnString) 
If AVIDrives$ = Then 
Beep 

Msg$ = "Enter drive letters to be searched for video files (ex: CDGK) : " 
AVIDrives$ = InputBox$ (Msg$, "Select Drive{s) For Video Files") 
di% = WritePrivateProfileString("Main", "AVIDrives " , AVIDrives$, DBIniFile$) 
End If 

For x = 1 To Len (AVIDrives$) 

D$ - Mid$ (AVIDrives$, x, 1) 

f_main.pnlStatus. Caption = "Looking for video files on disk " & D$ & " . . . " 
FindAVIFiles DBF$, D$ & ":\" 
Next x 

'what if no AVI's are found? 
Do While NumAVIs = 0 

Msg$ = "No video files were found on the following drive (s): " & AVIDrives$ 
Msg$ = Msg$ & " Do you want to look on other drive (s)?" 
If MsgBox(Msg$, 52, "No Video Files Found") = 6 Then 

Msg$ = "Enter drive letters to be searched for video files (ex: CDGK):" 
AVIDrives$ = InputBox$ (Msg$ , "Select Drive <s) For Video Files") 
di% - WritePrivateProfileString{"Main", "AVIDrives", AVIDrives$, DBIniFile$) 
For x - 1 To Len (AVIDrives$) 

D$ - Mid$ (AVIDrives$, x, 1) 

f main. pnlStatus. Caption = "Looking for video files on disk " & D$ & " ..." 
FindAVIFiles DBF$, D$ & ":\" 
Next x 

Else 

Exit Sub 
End If 

Loop 

'move elements from TArr to VidArr 
ReDim VidArr (NumAVIs) 
For x = 0 To NumAVIs - 1 
T$ = TArr{x) 

Y - Val(Mid$(T$, Len(T$) -4, 1)) - 1 
VidArr (Y) = T$ 
Next x 

'load the .avi's from VidArr into the controls 

f i n .nnl S1-*tii.<; . f!*nt- i on = "Tni t"i 1 i 7 i ri rr vi Hro file 1 : " & ViHArrfO^ 
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f_video.MCIWndl (0) .Filename - VidArr(O) 
DoEvents 

WR1 = f _video. MCIWndl (0) .Width / ( f_video .Width - 345) 
HR1 = f_video.MCIWndl (0) .Height / (f_video. Height - 1220) 
If WR1 > HR1 Then 

f__video.MCIWndl (0) .Zoom = 100 / WR1 

Else 

f__video.MCIWndl(0) .Zoom = 100 / HR1 
End If 
DoEvents 

f_video.pnlVidFrame.Move 0, 0, f_video .MCIWndl (0) .Width + 240, f_video.MCIWndl (0) . Height + 2 

40 

f_video.pnlVid Frame. Visible = True 

f_video. MCIWndl (0) .TimeFormat = "milliseconds " 

AVILength = f_video .MCIWndl {0 J. Length 

DoEvents 

For x = 1 To NumAVIs - 1 

f_main.pnlStatus. Caption = "Initializing video file " & Format$(x + 1) & " : " & VidArr(x 

) 

Load f_video. MCIWndl <x) 

f _video. MCIWndl (x) .Visible = False 

f_video. MCIWndl (x) . Playbar = False 

f _video. MCIWndl (x) . AutosizeWindow = True 

f_video. MCIWndl (x) . Filename = VidArr(x) 

f _video. MCIWndl <x) .Move f_video. MCIWndl (0) .Left, f_video. MCIWndl (0) .Top 

fvideo. MCIWndl (x) .Zoom = f_video. MCIWndl (0) . Zoom 

f_video. MCIWndl (x) .Tag = "newmciwnd" 

f _video. MCI Wndl (x) .TimeFormat = "milliseconds" 

f _video. MCIWndl (x) .Timer Freq = 500 

f_video. MCIWndl (x) . WantPosEvent = True 

AVILength = AVILength + f _video. MCIWndl <x) . Length 
Next x 
' CurAVI = 0 
PrevAVITot = 0 
VMode = "Stop" 

f_main.pnlStatus. Caption = "Video setup complete" 

Exit Sub 
EH_LoadVideoFiles2 : 

screen. MousePointer = 0 

If Err <> 5 Then 

MsgBox "Error in LoadVideoFiles2 : " & Error (Err) 

End If 

Exit Sub 
End Sub 

Sub PlayNote (Sound As String) 
Const S_NORMAL = 0 
. Const S_LEGATO = 1 
Const SSTACCATO = 2 
di% = SetVoiceQueueSize (1, 512) 
If G_SoundOn = True Then 
Select Case Sound 
Case "Confirm" 

'di% = SetVoiceAccent (1, 120, 
di% = SetVoiceNote (1, 24, 32, 
di% = SetVoiceNote (1, 30, 32, 
Case "Warn" 

'di% = SetVoiceAccent (1, 120, 
di% = SetVoiceNote (1, 30, 32, 
di% = SetVoiceNote {1, 24, 32, 
Case "Error" 

•di% = SetVoiceAccent (1, 120, 
di% = SetVoiceNote (1, 48, 32, 
di% = SetVoiceNote (1, 42, 32, 
End Select 
di% = StartSound() 




60, SLEGATO, 0) 

1) 

1) 

60, S_LEGATO, 0) 

1) 

1) 

60, S_LEGATO, 0) 

1) 

1) 
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End Sub 

Sub PlaySegment (SecsPos&, SegLength&J 

«SecsPos& = Int {SecsPosS / 22) T ======test only=^=take out==== 

VMode = "Seg" 
TmpTot = 0 
i = 0 

TmpTot = f_video. MCIWndl (0) .Length 
. Do While SecsPosS >= TmpTot 
i = i + 1 

TmpTot = TmpTot + f_video . MCIWndl (i ). Length 

Loop 

TmpCurAVI « i 

If TmpCurAVI <> Cur AVI Then 

f_video. MCIWndl (CurAVI) .Visible = False 

CurAVI = TmpCurAVI 

SetPrevAVITot 
End If 

f _video. MCIWndl (CurAVI) . Position = SecsPos& - PrevAVITot 
DoEvents 

f_video. MCIWndl (CurAVI) .Visible = True 
StartPosS - SecsPos& - PrevAVITot 
EndPosfc « StartPosk + SegLength& 
'f_video. Timer 1. Enabled = True 
DoEvents 

If EndPosfc <- f _video . MCIWndl { CurAVI ) . Length Then 

f_video. MCIWndl (CurAVI) .Command = "Play From " & Format$ (Start Pos&) & " To " & Format $ (E 
ndPos&) & " Wait" 
Else 

f_video. MCIWndl (CurAVI) .Command = "Play From " & Format$ (StartPosS ) & " To " & Formats (f 
_video. MCIWndl (CurAVI) .Length) & " Wait" 

NewSegLen& = EndPos& - f_video . MCIWndl (CurAVI ). Length 
If CancelFlag = True Then Exit Sub 
If CurAVI < NumAVIs - 1 Then 

f_video. MCIWndl (CurAVI) .Visible « False 
CurAVI = CurAVI + 1 

f_video. MCIWndl (CurAVI) .Visible - True 

f_video. MCIWndl (CurAVI) .Command = "Play From 0 To " & Format? (NewSegLen& ) & " Wait" 
End If 
End If 

1 f_video. Timer 1 .Enabled — False . 
VMode - "Stop" 
DoEvents 
End Sub 

Sub QueryRun() 

Dim SArr ( ) As String 
Dim Ds2 As snapshot 
Dim TAve As Single 
Dim Fldl As New field 
Dim Idxl As New Index 

•On Error GoTo EH_RunQuery 
VMode = "Stop" 

f _video . MCIWndl (CurAVI ) . Command = "Stop" 
■ f_video .Timerl . Enabled = False 
If f_query. txtQuery . Text = "" Then 
Beep 

MsgBox "You must select one or more variables before you can run a query." 
Exit Sub 
End If 

screen. MousePointer - 11 

f_main.pnlStatus .Caption = "Running query ..." 

f _data . pnlGraph . Cls 

f_data .MaxPointer. Visible = False 

f_data.MaxPointer2 .Visible = False 

f_data. MaxPointer 3. Visible = False 

f data .MinPo inter .Vi si hi e = False 
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f_data.MinPointer2 .Visible = False 
f_data.MinPointer3. Visible = False 
f_data.LeadinPointer. Visible = False 
f_data.Leadout Pointer .Visible = False 
f_dat a. Max Pointer .Left = 375 

f_data.MaxPointer2 .Left =375 J 

f data ,MaxPointer3 . Left = 375 

f "data. MinPointer. Left = 375 

f_data.MinPointer2.Left = 375 

f_data.MinPointer3.Left = 375 

f_data.LeadinPointer.Left =375 

fjdata.LeadoutPointer .Left = 375 

f_data.pnlSlider.Left =4 35 

DoEvents 

QueryHasBeenRun = True 

'determine which variables are being used 
n% = 0 

For x% = 0 To f_query. Listl. ListCount - 1 

If f_query. Listl. Selected(x%) Then 
n% = n% + 1 

End If 
Next x% 

ReDim SArr(n%) 
n% = 0 

For x% = 0 To f_query. Listl .ListCount - 1 
If f_query. Listl. Selected{x%) Then 
SArr(n%) = f_query. Listl. List <x%) 
n% « n% + 1 
End If 
Next x% 

' run query 

'TblVar. Index = "I_SECONDS" 
f TblVar.MoveLast 

•f_data.pnlGraph.ScaleWidth = TblVar ( "SECONDS " ) 
'Barlnc = Int (f_data . pnlGraph. ScaleWidth / 10) 
1 TblVar . MoveFirst 
x% = 0 

'if only one variable, find highs and lows and draw graph 
'directly from the database 
If n% = 1 Then 

NewFld? - SArr(O) 
Else 'if more than one variable has been selected 

NewFld$ = 

For Y% = 0 To n% - 1 

NewFld$ = NewFld$ & SArr(Y%) & 
Next Y% 

NewFld$ = UCase$ (Left$ (NewFld$, Len(NewFld$) - 1)) 
f se% = -1 

For x% = 0 To f_query. Listl .ListCount - 1 

If f_query. Listl. List (x%) = NewFld$ Then fse% = x% 
Next x% 

If fse% = -1 Then 

f_main.pnlStatus. Caption - "Creating new variable " & NewFld$ & " . . . " 
f_query. List l.Addl tern NewFld$ 
f_query. Listl . Refresh 
TblVar. Close 

Fldl.Name = NewFld$ : Fldl.Type = DB_S INGLE 

Idxl.Name = "I" & NewFld$ : Idxl. Fields = NewFld$: Idxl. Primary = False: Idxl. Unique 

= False 

NewDB.TableDefs("T_DATA") .Fields. Append Fldl 
NewDB . TableDef s ( "T_DATA" ) . Indexes .Append Idxl 
Set TblVar - NewDB . OpenTable ( "T_DATA" ) 
TblVar. MoveFirst 
TAve = 0 

Do While Not (TblVar . EOF) 
For Y% = 0 To n% - 1 

TAvp = TAve* -f TblVar (SArr(Y*n 
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Next Y% 
TblVar.Edit 

TbLVar (NewFld$) - TAve / n% 
TblVar. Update 
TAve = 0 
TbLVar. MoveNext 

Loop 

TblVar . MoveFirst 
'Else 

'di% - SendMessage(f_query.Listl.hWnd, LBSELITEMRANGE, False, &HFFFF0000) 
'di% = SendMessage(f_query.Listl.hWnd, LB_SELECTSTRING, -1, NewFld$) 
End If 
End If 

SQLST$ = "SELECT SECONDS, [ w & NewFld$ & "] FROM T_DATA " 
Set Dsl « NewDB.CreateSnapshot (SQLST$) 

»=====Pi nc j the top 3 highs and lows 

f_main.pnlStatus. Caption = "Locating highs and lows for " & NewFldS & " ..." 
If GetHisLosFromINI(NewFld$) = 0 Then FindHisLos NewFld$ 

' =====Draw the graph 

fjnain.pnlStatus. Caption = "Drawing graph for " & NewFld$ & " ..." 
DrawGraph 

f_main.pnlStatus . Caption = "Query complete ..." 

. 'position AVI to x seconds before max and start playback 
DBIniFile$ « DBPath$ & Left$ (DBFile$, Len(DBFile$) - 3) & "ini" 
SegLength% = GetPrivateProf ilelnt ( "Main", "AVISegLength", 0, DBIniFile$) 
SecsBefore% = GetPrivateProf ilelnt ( "Main" , "AVISecsBef ore", 0, DBIniFile$) 
GraphClick Int (MaxXl - SecsBefore%) 
VideoPlay 

'PlaySegment (MaxXl - SecsBefore%) * 1000, SegLength% * 1000 
Dsl. Close 

screen. MousePointer = 0 
Exit Sub 
EH_RunQuery: 

If Err = 94 Then Resume Next Else MsgBox "Error in RunQuery:" & Error (Err) 
Exit Sub 
. End Sub 

Sub SetPrevAVITot () 
PrevAVITot = 0 
If CurAVI > 0 Then 

For x - 0 To CurAVI - 1 

PrevAVITot - PrevAVITot + f_video . MCIWndl (x) . Length 
Next x 
End If 
End Sub 

Function StripPath$(T$) 
Dim x%, ct% 
StripPath$ - T$ 
x% = InStr(T$, "\") 
Do While x% 
ct% = x% 

x% = InStr(ct% + 1, T$, "\") 

Loop 

If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1) 
End Function 



Sub TileBitmapOnForm(theForm As Form, BitmapCtl As PictureBox). 
Dim FormOrigScaleMode%, CtlOrigScaleMode% 
FormOrigScaleMode% = the Form. Sea leMode 
CtlOrigScaleMode% = BitmapCtl . ScaleMode 
theForm.ScaleMode = PIXELS 
BitmapCtl. ScaleMode = PIXELS 

Call TileBitmapOnFormEx(theForm, BitmapCtl, 0, 0, ( theForm. ScaleWidth) , (theForm. ScaleHeight 
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theForm. ScaleMode = FormOrigScaleMode% 
BitmapCtl. ScaleMode = CtlOrigScaleMode% 
End Sub 

Sub TileBitmapOnFormEx(theForm As Form, BitmapCtl As PictureBox, xLeft%, yTop%, xRight%, yBot' *n 
%) • \ / 

Dim FormOrigScaleMode%, CtlOrigScaleMode% 

Dim BmpWidth%, BmpHeight% 

Dim DestWidth%, DestHeight% 

Dim BltWidth%, BltHeight% 

Dim CurXPos%, CurYPos% 

Dim bltOK% 

ForraOrigScaleMode% = theForm. ScaleMode 
CtlOrigScaleMode% = BitmapCtl . ScaleMode 
theForm. ScaleMode = PIXELS 
BitmapCtl. ScaleMode - PIXELS 
BmpWidth% = BitmapCtl . ScaleWidth 
BmpHeight% = BitmapCtl . ScaleHeight 
DestWidth% = xRight% - xLeft% 
DestHeight% = yBottom% - yTop% 
BitmapCtl. Visible = True 1 ===== — — 
For CurYPos% = xLeft% To DestHeight% Step BmpHeight% 
If (CurYPos% + BmpHeight%) <= DestHeight% Then 
BltHeight% = BmpHeight% 

Else 

BltHeight% - DestHeight% - CurYPos% 
End If 

For CurXPos% = yTop% To DestWidth% Step BmpWidth% 
If (CurXPos% + BmpWidth%) <- DestWidth% Then 
BltWidth% = BmpWidth% 

Else 

BltWidth% = DestWidth% - CurXPos% 
End If 

bltOK% - BitBLt (theForm. hDC, CurXPos%, CurYPos%, BltWidth%, BltHeight%, BitmapCtl "> 
C, 0, 0, SRCCOPY) 

If bltOK% = False Then 

MsgBox "BitBlt failed in TileBitmapOnForm" 
End If 
Next CurXPos% 
Next CurYPos% 

theForm. ScaleMode = FormOrigScalMode% 
BitmapCtl. ScaleMode = CtlOrigScaleMode% 
End Sub 

Sub VideoEndO 

VMode = "Stop" 

f_video.MCIWndl(CurAVI) .Command - "Stop" 
DoEvents 

f_main.pnlStatus. Caption = "Video advanced to end" 
If Cur AVI <> NumAVIs - 1 Then 

f_video.MCIWndl (CurAVI) .Visible = False 

CurAVI - NumAVIs - 1 

SetPrevAVITot 

f_video.MCIWndl (CurAVI) .Visible = True 
End If 

f_video.MCIWndl (CurAVI) . Position - f_video.MCIWndl (CurAVI ) .Length 
f_data.pnlSlider.Left - f_data . pnlResponse. Width - 315 
End Sub 

Sub VideoPlayO 

VMode = "Play" 

f _video. MCI Wndl (CurAVI) .Command = "Play" 
End Sub 

Sub VideoRewind ( ) 
VMode = "Stop" 

f_video .MCIWndl (CurAVI) .Command - "Stop" 
DoEvents 

fjnain.pnlStatus. Caption = "Video rewound to beginning" 
Tf OnrAVT <> 0 Then 
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f_video.MCIWndl (CurAVI) .Visible = False 

CurAVI = 0 

SetPrevAVITot 

f_video.MCIWndl(0) .Visible - True 
End If 

f_video.MCIWndl (0) .Position » 0 
f_data.pnlSlider.Left = 435 
End Sub 

Sub VideoStopO 

VMode = "Stop" 

f_video . MCIWndl (CurAVI ) . Command = "Stop" 
End Sub 

Sub WaitSecs (sees) 
Dim Start! , temp% 
Start! = Timer 

While Timer < Start! + sees + 1 
temp% = DoEvents { ) 

Wend 
End Sub 

Sub WinNotOnTop (F As Form) 

wFlags% - SWP_N0M0VE Or SWP_NOSIZE 

Call SetWindowPos (F.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, wFlags%) 
End Sub 

Sub winOnTop(F As Form) 

wFlags% = SWP_NOMOVE Or SWP_NOSIZE 

Call SetWindowPos (F.hWnd, -1, 0, 0, 0, 0, wFlags%) 
End Sub 
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F VIDEO - 1 



Private Sub cmdCancel_Click ( ) 
•CancelFlag - True 
1 f_video . MCIWndl ( CurAVI ) . Command = "Stop" 
End Sub 

Private Sub andEnd^Click ( ) 

VideoEnd 
End Sub 

Private Sub cmdPlay_Click ( ) 

VideoPlay 
End Sub 

Private Sub cmdRewind_Click { ) 

VideoRewind 
End Sub 

Private Sub cmdStop_Click ( ) 

VideoStop 
End Sub 

Private Sub cmdVolume_Click (index As Integer) 
cmdVolume (index) . Enabled = False 
For x = 0 To NumAVIs - 1 

NV% = F_VI DEO . MCIWndl (x) .Volume + Choose (index + 1, 100, -100) 

If NV% > 0 Then F_V I DEO. MCIWndl (x) .Volume = NV% 
Next x •■. 
• DoEvents 

cmdVolume (index) . Enabled = True 
End' Sub 

Private Sub Forra_Load { ) 

'if there are settings for form placement, use them, else ... 

Me. Move 0, 0, F_QUERY.Left, F__DATA . Top 
End Sub 

Private Sub Form_Resize ( ) 
DoEvents 

Posit ionControls 
End Sub 

Private Sub MCIWndl_positionchange (index As Integer, Position As Long) 
T% - Int( (Position + PrevAVITot) / 1000) 

.Vid$ - Format$(Int (T% / 60), "00") & " : " & Format? <T% Mod 60, "00") 
If VMode = "Play" Then 

If Position = MCIWndl (CurAVI) .Length Then 
If CurAVI < NumAVIs - 1 Then 

'MCIWndl (CurAVI) .Command - "Stop" 

MCIWndl (CurAVI) .Visible = False 

CurAVI = CurAVI + 1 

MCIWndl (CurAVI) .Visible = True 

MCIWndl (CurAVI) .Position = 0 

MCIWndl (CurAVI) .Command = "Play" 

SetPrevAVITot 

Else 

VMode = "Stop" 
End If 

Else 

F_MAIN.pnlStatus. Caption = "Video playing at " & Vid$ 

q% = Int ( (Position + PrevAVITot) / AVILength * F_DATA. pnl Graph. Width) 
If q% < 0 Then q% = 0 
F_DATA.pnlSlider.Left = 435 + q% 
DoEvents 
End If 

Elself VMode = "Stop" Then 

F_MAIN.pnlStatus. Caption = "Video stopped at " & Vid$ 

Else 

F_MAIN.pnlStatus. Caption «= "Video playing at " & Vid$ 

= Tnt/(Po.sitinn + PrevAVITot) / AVILenath * F DATA. pnlGraph. Width) . 
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F_VIDEO - 2 

If q% < 0 Then q% = 0 
F_DATA. pnl Slider. Left « 435 + q% 
DoEvents 
End If 
End Sub 

Private Sub PositionControls { ) 

If MCIWndl(O) .Filename <> "" Then 

WR1 = F_VIDEO . MCIWndl { 0 ) .. Width / (F__VIDEO. Width - 34 5) 
HR1 - F_VI DEO. MCIWndl (0) .Height / (F_VIDEO. Height - 1220) 
If WR1 > HR1 Then 

F_VI DEO. MCIWndl (0) .Zoom = F_VTDEO. MCIWndl { 0 ). Zoom / WR1 

Else 

F_VIDEO. MCIWndl (0) .Zoom = F_V I DEO. MCIWndl ( 0) . Zoom / HR1 
End If 
End If 

If FormLoaded("F_SYNOP") Then 

pnlVidFrame.Move 0, 300, F_VIDEO. MCIWndl (0) .Width + 240, F_VIDEO. MCIWndl (0) . Height + 240 

Else 

pnlVidFrame.Move 0, 0, F_V I DEO. MCIWndl (0) . Width + 240, F_V I DEO. MCI Wndl (0) .Height + 240 
End If 

For x = 1 To NumAVIs - 1 

F_VIDEO. MCIWndl (x) .Zoom = F__VI DEO. MCIWndl ( 0 ). Zoom 
Next x 

•MsgBox Format$ (f_video. MCIWndl (0) . Zoom) 
End Sub 

Private Sub Spinl_SpinDown ( ) 

p& = FJVIDEO. MCIWndl (CurAVI) .Position - 5000 

If p& < 0 Then 

If CurAVI > 0 Then 

F_VIDEO. MCIWndl (CurAVI) .Visible = False 

CurAVI = CurAVI - 1 

SetPrevAVITot 

F_VIDEO. MCIWndl (CurAVI) .Visible - True 

F_VIDEO. MCIWndl (CurAVI) .Position = F_VI DEO. MCIWndl (CurAVI ). Length + p& 
p& *= F_V I DEO. MCIWndl (CurAVI) . Position 

Else 

VMode - "Stop" 
p& = 0 
End If 

Else . ...... ..... • -.. . j : ■ .v.:---: . = -; 

F_VIDEO. MCIWndl (CurAVI). Position - p& 
End If 

'F_Main.pnlStatus. Caption » "Video playing at n & Int ( (p& + PrevAVITot) / 1000) 
F_DATA.pnlSlider.Left = 435 + (p& + PrevAVITot) / AVILength * F_DATA. pnl Graph. Width 
' DoEvents 
End Sub 

Private Sub Spinl_SpinUp ( ) 

p& = F_VIDEO. MCIWndl (CurAVI) .Position + 5000 

•If p& > F_VI DEO. MCIWndl (CurAVI) .Length Then 
If CurAVI < NumAVIs - 1 Then 

p& = p& - FJVIDEO. MCIWndl (CurAVI) .Length 
F_VIDEO. MCIWndl (CurAVI) .Visible = False 
CurAVI - CurAVI + 1 
SetPrevAVITot 

F_VI DEO. MCIWndl (CurAVI) .Visible = True 
FJVIDEO. MCIWndl (CurAVI) .Position = 0 

Else 

VMode - "Stop" 

p& = F_VIDEO. MCIWndl (CurAVI) .Length 

Else ' •" ' ' " ■' " ; ' • • '" ; - : 

r.^r z . FJVIDEO. Mq^ndl (CurAVI) . PQ^ion - p& . , ; , -.^^ S:; ,,-.r,,; • 

End If 

— ^'FJYIain.-pnlStatusrCaption "Video-playing at ^S-Int ( (p&--H PrevAVITot)— /- 1000) - - 

P-nATA.nnlSHd*r.T.*ft « 435 + . fr>& + PrevAVITot ) .... /.. AVILencrth * . F- • DATA . pnl Graph . Wi d.t h ; -..~.. r „. - — ^ : 
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F_VIDEO - 3 

1 DoE vents 
End Sub 

Private Sub Timer l_Timer ( } 

p& = F_VIDEO.MCIWndl (CurAVI) .Position 
T% « Int((p& + PrevAVITot) / 1000) 

Vid$ = Format$ (Int(T% / 60), "00") & ":" & Format $(T% Mod 60, "00") 
FJVlAIN.pnlStatus. Caption = "Video playing at " & Vid$ 
• q% - Int((p& + PrevAVITot) / AVILength * F_DATA.pnl Graph. Width) 
If q% < 0 Then q%. = 0 
F_DATA.pnlSlider.Left = 435 + q% 
DoEvents 
End Sub 
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F_SYNOP - 1 

Dim CurListl As Integer 

Dim DY 

Dim TmpDesc$ 

Private Sub chkMaxl_Click ( ) 

If chkMaxl. Value - 0 Then chkMax2 . Value = 0: chkMax3 . Value = 0 
End Sub 

Private Sub chkMax2_Click ( ) 

If chkMax2 .Value = 1 Then chkMaxl . Value = 1 Else chkMax3 . Value = 0 
End Sub 

Private Sub chkMax3_Click ( ) 

If chkMax3. Value = 1 Then chkMaxl . Value = 1: chkMax2 . Value = 1 
End Sub 

Private Sub chkMinl_Click ( ) 

If chkMinl. Value = 0 Then chkMin2 . Value = 0: chkMin3 . Value = 0 
End Sub 

Private Sub chkMin2_Click ( ) 

If chkMin2. Value = 1 Then chkMinl . Value - 1 Else chkMax3 .Value - 0 
End Sub 

Private Sub chkMin3_Click ( ) 

If chkMin3. Value « 1 Then 
chkMinl. Value - 1 
chkMin2 . Value - 1 
End If 
End Sub 

Private Sub cmdAdd_Click ( ) 

If List3.ListCount > 0 Then 
List3.Z0rder 0 
List3.ListIndex = 0 
List3. Visible « True 

Else 

Beep 
End If 
End Sub 

Private: -Sub cmdCancel_Click ( ) 

. ... Unload Me v . .... . .. .. 

End Sub 

Private Sub cmdDelete_Click { ) 
cmdDelete. Enabled = False 
n% = Listl .Listlndex 
T$ = Listl. List (n%) 
List3.AddItem T$ 
Listl .Remove I tern n% 
List 2 .Remove It em n% 
DoEvents 

If n% > Listl.ListCount - 1 Th 
CurListl = Listl.ListCount 
Listl . Listlndex = Listl. Li 
List2. Listlndex = List2.Li 

. Else 

CurListl = n% 
Listl. Listlndex = n% 
List2. Listlndex = n% 
End If 

cmdDelete. Enabled = True 
End Sub- 

Private Sub cmdbown_Click { ) ' 

. cmdDown.. Enabled False . ... % 
n %' = " Lis t i V Li s 1 1 nde x t " 
- - T^^LirstlTList (n%r* " 

+-9S- T.-i si-?. T.i.cjt (n%\ 
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F_SYNOP - 2 

If n% < Listl.ListCount - 1 Then 

CurListl = n% + 1 

List 1 . Remove Item n% 

List l.Addl tern T$, n% + 1 

List2 . Removeltem n% 

List2.AddItem t2$, n% + 1 . 

Listl.Listlndex - n% + 1 
End If 

cmdDown. Enabled = True 
End Sub 

Private Sub cmdOK_Click ( ) 
Dim VH%, VW% 
CancelFlag = False 

If chkMaxl. Value = 0 And chkMinl .Value = 0 Then 

MsgBox "You must select one of the max/min check boxes." 
Exit Sub 

Elself txtSegLength.Text - "" Or txtSecsBefore . Text = "" Then 

MsgBox "You must have values in both Segment Length and Start." 

Exit Sub 
End If 

di% = WritePrivateProfileSt ring ("Main", "SynopSegLength", txtSegLength.Text, DBIniFile$) 
di% = WritePrivateProfileString("Main", "SynopSecsBef ore", txtSecsBef ore . Text , DBIniFile$) 

F_SYNOP. Hide 
DoEvents 

VH% = F__VIDEO. Height 
VW% = F_VIDEO. Width 

F_VIDEO.MCIWndl (CurAVI) .Visible = False 
F_VI DEO. pnlVidFrame. Visible = False 
F_VI DEO. Windows t ate = 2 
DoEvents 

F_MAIN.pnlStatus. Caption = "Press ESC to stop video output" 
,F_VIDEO. Caption = txtMainTitle . Text 
F_VIDEO.pnlVidTools. Visible = False 

•f_video.lblDesc.Move f_video.pnlVidOut. Width - 4000 
F_VIDE0.1blVariable. Caption - "" 

F_VIDEO.cmdCancel.Left = F_VI DEO . pnlVidOut . Width - 1170 
F_VI DEO. pnlVidOut . Visible = True 

F_VI DEO. FXMainTitle. Width = F_VI DEO . pnlVidOut . Width - 600 
F_VIDE0. FXMainTitle. Caption = txtMainTitle . Text 
... F_VIDE0< FXMainTitle. Visible = True . -w - ■ . ■■■ -:-^:.v.. ,: .. 

Beep 

MsgBox "Hit Enter and set your VCR to RECORD" 
WaitSecs 10 

If CancelFlag = True Then GoTo EH_VidOutl 
F_VIDE0. FXMainTitle. Visible = False 
F_VI DEO. pnlVidFrame. Visible = True 
SegLengthS = Val (txtSegLength . Text ) * 1000 
'for each variable in list, print header, high (and low) 
For X - 0 To Listl.ListCount - 1 
DoEvents 

If CancelFlag = True Then GoTo EH_VidOutl 

VNam$ = Listl.List (X) 

If GetHisLosFromINI(VNam$) - 0 Then 

SQLST$ = "SELECT SECONDS, [" & VNam$ & "] FROM T_DATA" 

Set Dsl = NewDB.CreateSnapshot (SQLST$) 

FindHisLos VNarn? 

Dsl. Close 
End If 

VDesc$ = List2.List (X) 

If VDesc$ = "@" Then VDesc$ = "" 

F_VIDE0.1blDesc. Caption - VDesc$ 

If chkMaxl. Value = -1 Then ""' • ; • 

, „SegStart& « (MaxXl - Va.1 (txtSecsBef ore . Text) ). ..*, j.QQ0„. , 

; • ^ - 'MiW 1 f ; * & ' WamT^ »• - — . - - - — — 

v — — PlaySegraent- -SegStart&v SegLength&r „__._ — ■ — — — — ~ 
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F SYNOP 



DoEvents 

If CancelFlag = True Then GoTo EH_VidOutl 

If chkMax2. Value = 1 Then 

SegStart& « (MaxX2 - Val ( txtSecsBef ore . 
F_VIDE0.1blVariable. Caption = "High 2: 
PlaySegment SegStart&, SegLengthS 

End If 

DoEvents 

If CancelFlag = True Then GoTo EH_VidOutl 

If chkMax3. Value - 1 Then 

SegStart& - (MaxX3 - Val { txtSecsBefore . 
F_VIDE0.1bl Variable. Caption = "High 3: 
PlaySegment SegStart&, SegLength& 

End If 

DoEvents 

If CancelFlag = True Then GoTo EH_VidOutl 

If chkMinl. Value = 1 Then 

SegStart& = (MinXl - Val (txtSecsBefore . 
F_VIDE0.1blVariable. Caption = "Low 1: " 
PlaySegment SegStartS, SegLengthfc 

End If 

DoEvents 

If CancelFlag = True Then GoTo EH_VidOutl 

If chkMin2. Value = 1 Then 

SegStartS = (MinX2 - Val (txtSecsBefore . 
F_VI DEO. lblVariable. Caption = "Low 2: " 
PlaySegment SegStart&, SegLengths 

End If 

DoEvents 

If CancelFlag « True Then GoTo EH_VidOutl 

If chkMin3. Value - 1 Then 

SegStartS = (MinX3 - Val (txtSecsBefore . 
F_VIDEO. lblVariable. Caption = "Low 3: " 
PlaySegment SegStartS, SegLength& 

End If 
Next X 

. F_VI DEO. pnlVidFrame. Visible = False 
WaitSecs 4 
eeep 

F_MAIN.pnlStatus .Caption = 
GoTo EH_Vid0ut2 
EH^VidOutl: :: : 

Beep. , . : .,.;,.- AJ / ; 

Beep 

F_MAIN.pnlStatus .Caption = 
EH_Vid0ut2: 

- Unload F_SYNOP 

F_VIDEO. Caption - "Video" 

F_VI DEO. FXMainTitle. Visible = False 

F_VIDEO.pnlVidOut. Visible « 

F_VI DEO . pnlVidTools . Visible 

F_VI DEO. pnlVidFrame. Move 0, 0 

F_VIDEO.WindowState = 0 

F__VI DEO. pnlVidFrame. Visible = True 

DoEvents 

Exit Sub 
End Sub 



Text) ) * 1000 
" & VNam$ 



Text)) * 1000 
" & VNam$ 



Text)) * 1000 
& VNam$ 



Text)) * 1000 
& VNam$ 



Text) ) * 1000 
& VNam$ 



"Recording complete . . . Stop tape f 



"Recording canceled 



False 
= True 



Stop tape r 



Private Sub cmdUp_Click ( ) 
cmdUp. Enabled = False 
n% = Listl . Listlndex 
T$ = Listl. List (n%) 
t2$ « List2.List (n%) 
If n% > 0 Then 

, ^ CurLisJtl,^- . n%^ . .1 . 

List!. Removel tern n% 
Listl^. Addltem T$, n% - 1 
- Lis^V^moveftem n % : ^^ r: * 

5 < - List-2vAddItera~t2$ ,~-n% — — 1- 

- Listl. List Index = n%...n.l..- 
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F_SYNOP - 4 
End If 

cmd Up . Enabled = True 
End Sub 



Private Sub Form_Load() 

Dim RtnString As String * 8 
centerform Me 
winOnTop Me 

txtSegLength.Text = Format $ (Get Private Prof ilelnt ( "Main", "SynopSegLength", 0, DBIniFile$)) 
txtSecsBef ore. Text = Format? (GetPrivateProf ilelnt { "Main", "SynopSecsBefore", 0, DBIniFile$)) 
For X » 0 To F_QUERY. Listl . List Count - 1 

Listl.Addltem F_QUERY. Listl . List (X) 
Next X 

For X = 0 To F_QUERY. Listl. ListCount - 1 

List2.AddItem ,, 8 n 
Next X 

Listl . Listlndex = 0 
List2. List Index = 0 
CurListl = 0 
End Sub 



Private Sub Listl_click ( ) 

, List2. List (CurListl) = txtVarDesc 
L2$ = List2. List (Listl. Listlndex) 

If L2$ = "@" Then txtVarDesc = " n Else txtVarDesc = L2$ 
CurListl « Listl. Listlndex 
End Sub 



Private Sub List l_DragDrop (Source As Control, X As Single, Y As Single) 

T Labell2. Visible = False 

T Beep 
End Sub 

Private Sub List l_DragOver (Source As Control, X As Single, Y As Single, State As Integer) 

'Labell2.Move Listl. Left, Listl. Top + Y - DY / 2 
End Sub 

Private Sub Lis tl_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Button = 2 Then 

DY = Text Height ("A") ' Get height of one line. 
n% - Int(Y / DY) 

If n%. > Listl . ListCount - 1 Then Exit Sub-,.; ■: . - --c -■/-:. "... -p\ ■■ ... 

. .... Labell2. Caption _= Listl . List (n%) :# . ...J,, -,W., v-.-^W^ii.-.:. . . .U— 

" TmpDesc$ = List2 . List (n%) 

Listl, Listlndex = -1 
Listl . Removeltem n$ 
List2 . Removeltem n% 

Labell2.Move Listl. Left, Listl. Top + Y - DY / 2, Listl. Width 
Labell2.ZOrder 0 
Labell2. Visible - True 
End If 
End Sub 

Private Sub Listl_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Button « 2 And Y > 0 And Y < Listl. Height And Labell2 .Visible = True Then 

Labell2.Move Listl. Left, Listl. Top + Y - DY / 2 
End If 

End Sub 

Private Sub Listl_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Button = 2 And Labell2 . Visible « True Then 
Labell2. Visible = False 
If Y < 0 Then 

Y = 0 

,::^^c^..,^ElseIf:^X^Lis.tl..Height^Thexi^ »_... ....^^^..v^^..^ 

Y = Listl. Height ."'7 ' " ~ • ■ ' : : 

Newx = Int(Y / DY) 

— - --If - Newx->-List-H ListCount—- -1- Then -Newx<-*=- Li s-tl-v ListCount—— — — — — : — ~ — 

----- -Listl.Addltem Labell2 . Caption,. Newx - : ..^z^~ - --=—z^-.^-- 
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F_SYNOP - 5 

List2.AddItem TmpDesc$, Newx 
List 1 .Lis tlndex «= Newx 
End If 
End Sub 

Private Sub List3_DblClick { ) 

n% = List3.ListIndex 

Listl.Addltem List3 . List (n%) 

List2.AddItem 

List3. Visible » False 

List3.RemoveItein n% 
End Sub 

Private Sub TapePrintMax (VNam$ ) 
End Sub 

Private Sub TapePrintMin <VNam$ ) 
End Sub 

Private Sub TapePrintTitle (TT As String) 
End Sub 

Private Sub txtVarDes c_Lost Focus ( ) 

List2.List (CurListl) = txtVarDesc 
End Sub 



Best Available Copy 



F QUERY - 1 



Private Sub cmdDelete_Click ( ) 

'make sure that only one line is highlighted 
n% = 0 

For X% = 0 To F_QUERY . List 1 . ListCount - 1 

If F_QUERY. List 1. Selected (X%) Then 
n% = n% + 1 

End If 
Next X% 

If n% = 0 Then 

Exit Sub 
Elself n% > 1 Then 

Beep 

MsgBox "You can only delete variables one at a time." 
Exit Sub 
End If 

1 confirm the delete 

Msg$ - "Are you sure you want to delete the variable " & FJ2UERY .List 1 . List (Listlndex) & " ? 

Msg? - Msg$ & Chr(lO) & "This will delete the data for that variable from the database. " 

Msg$ = Msg? & "It cannot be retrieved." 

Beep 

If MsgBox (Msg$, 305, "Delete Variable") = 1 Then 
'remove item from list 
n% - Listl . Listlndex 
Listl . Removeltem n% 

'create a new database and table with all but the selected field 
'copy over the data to the new database 
'delete the original database 



'rename the new database 



End If 
End Sub 



Private Sub cmdRunQuery_Click { ) 

F_QUERY.cmdRunQuery. Enabled = False 
QueryRun 

F__QUERY . cmdRunQuery . Enabled = True 

- End Sub : -\ ■ ■ ■ : ■-. . Y.-:rr:^:y . : ~y 

Private Sub Form_Load() 

'if there are settings for form placement, use them, else ... 

Me. Move screen. Width * 0.75, 0, screen. Width / 4, screen. Height * 0.65 
End Sub 

Private Sub Form_Resize ( ) 

PositionControls 
End Sub 



Private Sub Listl_click ( ) 
; n m 1 

For X = 0 To Listl .ListCount - 1 
If Listl. Selected(X) Then 
If n = 1 Then 

T$ = Listl. List (X) 

Else 

T$ = T$ + " AND " & Listl. List (X) 
End If 
n - n + 1 
End If 
Next X 

- - t xt Que ry -.---JT $ ..... • 

End Sub" ' . ' ; " r \ r 

Private Sub ListlJDblClick ( ) 

* ' " ''f^qaery: cmdRunQuery; Enabled- False ■ 

'AnovuRnn 



Best Available Copy 

FJ2UERY - 2 

• » f_query. cmdRunQuery. Enabled = True 
End Sub 

Private Sub PositionControls ( > 

f read width, height, left, top from ini 

pnlQuery. Move 0, 0, Me. Width - 105, Me. Height - 390 
Listl.Move 180, 180, pnlQuery. Width - 360, pnlQuery .Height - 1500 
txtQuery.Move 180, Listl.Top + Listl. Height + 105, Listl. Width, 795 
cmdRunQuery.Move 180, txtQuery . Top + 840, Listl. Width - 420, 315 
cmdDelete.Move cmdRunQuery .Width + 225, cmdRunQuery . Top 
End Sub 
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FJPREFS - 1 

Private Sub cmdCancel_Click ( ) 

Unload Me 
End Sub 

Private Sub cmdRecalc_Click ( ) 

For m = 0 To F_QUERY . Listl . ListCount - 1 

NewFld$ = UCase$ (FJ2UERY. Listl. List (m) ) 

SQLST$ = "SELECT SECONDS, [" & NewFld$ & "] FROM T_DATA" 
Set Dsl - NewDB.CreateSnapshot (SQLST$) 

F_MAIN.pnlStatus. Caption = "Recalculating highs and lows for " & NewFld$ 

FindHisLos NewFld$ 

Dsl. Close 
Next ra 
Beep 

F_MAIN.pnlStatus. Caption = "Recalculation complete" 
End Sub 

Private Sub cmdSave_Click ( ) 

di% = WritePrivateProfileString("Main", "AVISegLength", txtSegLength . Text, DBIniFile$) 
di% - WritePrivateProfileString("Main", "AVISecsBefore", txtSecsBef ore . Text, DBIniFile$) 
Unload Me 

End Sub 

Private Sub Form_Load() 
centerforra Me 

txtSegLength. Text = Format? (GetPrivateProf ilelnt ( "Main", "AVISegLength" f 0, DBIniFile$) ) 
txtSecsBef ore, Text = Format$ (GetPrivateProf ilelnt ( "Main", "AVISecsBefore", 0, DBIniFile$) ) 
txtBegExclude . Text = Format$ (GetPrivateProf ilelnt ( "Main", "AVILeadin", 0, DBIniFile$) ) 
txtEndExclude.Text - Format$ (GetPrivateProf ilelnt { "Main", "AVILeadout " , 0, DBIniFile$)) 
End Sub 

Private Sub frmVideoPref s_Click ( ) 
End Sub 

Private Sub txtBegExclude_Lost Focus ( ) 

di% = WritePrivateProfileString("Main", "AVILeadin", txtBegExclude .Text, DBIniFile$) 
End Sub 

Private Sub txtEndExclude_Lost Focus ( ) 

di% = WritePrivateProfileString("Main", "AVILeadout", txtEndExclude.Text, DBIniFile$) 

■ End Sub'. i. ,-.;. = .:.., . ... " s:.., :: . . .. ■ . . • . .. 
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F_NEWDB - 1 

Private Sub cmdCancel_Click ( ) 

Onload Me 
End Sub 



enter another. 



Private Sub cmdOK_Click ( ) 

Dim NewDBPath As String 
screen. MousePointer = 11 
DBN$ = txtDBName.Text 

If Exists (app.Path & "\" & DBN$) > 0 Then 
Msg$ = IT A database exists by that name 
Beep 

MsgBox Msg$, 0, "Database exists" 
txtDBNarae . SetFocus 
txtDBName.SelStart = 0 
txtDBName.SelLength = Len (DBN$ ) 
Exit Sub 
End If 

•create a new directory 
MkDir app.Path & "\" & DBN$ 
F_NEWDB . Hide 
DoEvents 

'create a new .ini file 

DBIniFile$ - app.Path & "\" & DBN$ & "\" & DBN$ & ".ini 1 
Open DBIniFile$ For Output As #1 
Print 11, "[Main]" 

"AVIPath=" & txtVidFilter.Text & ".AVI" 
"AVIOverlap=" 
"AVILength-" 
"AVILeadin=0" 
"AVILeadout=0" 

"AVIDrives=" & UCase$ {txtVidFileDrives . Text ) 
"AVISegLength=20" 
"AVISecsBefore=10" 
"SynopSegLength=20 " 
"SynopSecsBefore=10" 



Print #1, 
Print #1, 
Print 
Print 
Print 
Print 
Print 
Print 
Print #1, 
Print 11 f 



n, 

#1, 

n, 
#i, 
#i, 

H, 



Close 

T create the new database 

F_MAIN.pnlStatus. Caption = "Importing DIF files" 
NewDBPath = app.Path & "\" & DBN$ & "\" & DBN$ & ".mdb" 
DD$ = Dirl.Path 

If Right $(DD$, 1) <> "\" Then DD$ - DD$ & "\" 
TT$ = DD$ & Filel. Filename 

ImportDIF. TT$, NewDBPath 

Onload F_NEWDB 
DoEvents 

'open the new database 
F_MAIN . pnlSt atus . Caption 
DBOpen NewDBPath 
Beep 

FJtfAIN.pnlStatus .Caption = "New database creation complete" 
screen. MousePointer = 0 
End Sub 



"Opening new database" 



Private Sub Dirl_Change ( ) 

Filel. Path - Dirl.Path 
End Sub 

Private Sub Drivel_Change ( ) 

Dirl.Path - Drivel. Drive 
End Sub 



Private Sub Form_Load() 
centerform Me 
winOnTop Me 
. End. Sub^.~~-- 



F NEWDB - 2 
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F_MAIN - 1 

Private Sub MDIForm_Load ( ) 

mnuHelp. Caption « Chr(8) & mnuHelp . Caption 

QueryHasBeenRun « False 

DBPath$ = 

DoEvents 

Load F_QUERY 

Load F_DATA 

Load F_VIDEO 

DoEvents 
End Sub 



Private Sub mnuFileExit_Click ( ) 
VideoStop 
Beep 

If MsgBox("Do you want to quit?", 292, "Quit?") = 6 Then 
If Len{DBPath$) Then 

screen. MousePointer = 11 
TblVar .Close 
NewDB. Close 

1 fjnain.pnlStatus. Caption = "Compacting database file ..." 
' DBCompact CurDBPath 
screen. MousePointer = 0 
End If 
End 
End If 
End Sub 

Private Sub ranuFi le Import DI F_C1 ick ( ) 

■ImportDIF 
End Sub 

Private Sub mnuFileNew_Click ( ) 

FJJEWDB.Show 
End Sub 

Private Sub mnuFileOpen_Click ( ) 
'locate the .mdb 
On Error GoTo EH_OpenCancel 

FQUERY. CMDialogl. DialogTitle = "Open Database" 
F_QUERY. CMDialogl. CancelError = True 
F_QUERY . CMDialogl . Filter - "Database file |*. mdb" 
F_QUERY. CMDialogl. Filterlndex = 1 .. . : , ~ 
• F^QUERY. CMDialogl •Action. . .. .. a..,...-.-:^: 

CurDBPath F_QUERY. CMDialogl . Filename 

On Error GoTo EH_Open Database 
screen. MousePointer =11 
DBOpen CurDBPath 
screen. MousePointer = 0 
Exit Sub 
EH_OpenCancel : 

Exit Sub 
EH_OpenDatabase : 

screen. MousePointer = 0 

MsgBox "Error OpenDatabase : " & Error (Err) 
Exit Sub 



End Sub 



Private Sub mnuFilePref s_Click ( ) 

F_PREFS.Show 1 
End Sub 



-Private _ Sub. mnuFileSynopsis^Click.( %, , 
F SYNOP. Show " "" *"■ 



End Sub , 



• 'r.-^-S! «i2ur. . .-2* . 



v Pr i va t e - S ub - mnu H e lp Ab o u t 1 i c k- fr) " 
- T.o*d F ABOUT 



F_MAIN - 2 

F_AB0UT.Timer2. Enabled = True 
F_ABOUT . Show 
End Sub 

Private Sub mnuVideoPlay_Click ( ) 

VideoPlay 
End Sub 

Private Sub mnuVideoRewind_Click ( ) 

VideoRewind 
End Sub 

Private Sub mnuVideoStop_Click ( ) 

VideoStop 
End Sub 
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F_DATA - 1 

Private Sub Form_Deactivate ( ) 
End Sub 

Private Sub Form_Initialize ( ) 
End Sub 



Private Sub Form_Load() 

'if there are settings for form placement, use them, else ... 

Me. Move 0 f screen. Height * 0.8 - 840 # screen. Width, screen . Height * 0.2 
End Sub 

Private Sub Form_Lost Focus { ) 
End Sub 



Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer) 
End Sub 



Private Sub Form_Resize { ) 
PositionControls 

•if a query has been run, redraw query graph 
If QueryHasBeenRun Then 

SQLST$ = "SELECT SECONDS, [" & NewFld$ & "] FROM T_DATA" 

Set Dsl = NewDB.CreateSnapshot (SQLST$) 

DrawGraph 

Dsl .Close 
End If 
End Sub 

Private Sub pnlGraph_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) 
? If Button = 1 And VMode <> "Play" Then 

pnlSlider.Left - 435 + Int (X / pnlGraph. ScaleWidth * pnlGraph. Width) 
End If 
End Sub 

Private. Sub pnlGraph^MouseMove (Button As . Integer,. Shift As . Integer, .X As Single,.. Y As Single) 
If Button = 1 And VMode <>. "Play" Then 

pnlSlider.Left = 435 + Int (X / pnlGraph . ScaleWidth * pnlGraph. Width) 
End If 



End Sub 

Private Sub pnlGraph_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) 

GraphClick X 
End Sub 

Private Sub PositionControls ( ) 

pnlResponse.Move 0, 0, Me. Width - 105, Me. Height - 105 

pnlGraph. Move- 480, 240, pnlResponse .Width - 750, pnlResponse. Height - 750 

Label3.Top = pnlGraph . Height +165 

MinPointer .Top = pnlGraph. Height + 255 

MinPointer2.Top = pnlGraph . Height + 255 

MinPointer3.Top = pnlGraph. Height + 2 55 

MinPointer. ZOrder 1 

pnlSlider. Height = pnlGraph . Height 

For X = 0 To 9 

GSecs(X).Top = MinPointer. Top + 30 

If GSecs(O) .Caption <> "" Then AddGrapfiSeconds 
.:: ; .\jz RnlGraph. CI s, : :-V4 |^,^ £S£t . — • 

incl = pnlGraph. ScaleWidth / 10 
- " ' rfic2~ = ^phlG^ , aph-:Sc^-reHeight" , I 4r — — — ■- — — -- * - — — 1 — - " 



F_DATA - 2 

Linel(X) .XI 
Linel(X).Yl 
Linel(X) .X2 
Linel(X).Y2 
Next X 

For X - 0 To 2 
Line2(X) .XI 
Line2(X) .Yl 
Line2(X) .X2 
Line2(X) .Y2 

Next X 
End Sub 



incl * (X + 1) 
0 

incl * (X + 1) 
pnlGraph . ScaleHeight 



= 0 



inc2 * (X + 1) 
pnlGraph . ScaleWidth 
inc2 * (X + 1) 



Private Sub pnlResponse_Click { ) 
End Sub 

Private Sub pnlResponse_Got Focus ( ) 
End Sub 

Private Sub pnlResponse_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) 
End Sub 

Private Sub pnlResponse_Paint { ) 
End Sub 

Private Sub pnlSlider_Click< ) 
End Sub 



Private Sub pnlSlider_DblClick { ) 
End Sub 



Private. Sub pnlSlider_Got Focus ( ) 
End Sub 



FJYBOUT - 1 

Dim CurCell As Integer 

Private Sub Form_Click ( ) 

Unload Me 
End Sub 

Private Sub Form_Load ( ) 
winOnTop Me 

Picturel. Picture = PicClipl .GraphicCell (0) 
CurCell = 0 
End Sub 

Private Sub FXLabell_Click ( ) 
End Sub 

Private Sub FXLabell_DblClick ( ) 
End Sub 



Private Sub Label 1_C1 ick ( ) 
End Sub 



Private Sub PicClipl_Click ( ) 
End Sub 



Private Sub PicClipl_Paint { ) 
End Sub ' 



Private Sub Timerl_Timer ( ) 

txtlnit .Visible - Not (txtlnit . Visible) 

If CurCell - 0 Then CurCell = 1 Else CurCell = .0 

Picturel. Picture = PicClipl . GraphicCell {CurCell ) 

End Sub 

Private. Sub Timer 2_Timer ( ) . .. ..... ■.,.,':!.,. 

Unload Me 
End Sub 



Introduction 

Picture the typical focus group from the perspective of a participant. You are a member of an audience 
which has been assembled to watch a taped or live presentation, and you are asked to provide your 
moment-to-moment opinions. After the presentation, there may be a discussion period, which you are also 
asked to score. The job is relatively simple - give your honest responses and opinions. 

Now look at it from the perspective of the presenters. You need to understand who the audience is both 
as a group and individually. What are the age ranges, the income brackets, and the gender breakdown? 
What initial opinions and biases does the audience bring with them (and how have you swayed them from 
those opinions)? You need to time-match precisely the responses from the audience with the presenta- 
tion. And you need to be able to analyze the results in a number of different ways. Analysis is, after all the 
purpose of holding the focus group in the first place. 

There are a number of technical challenges facing the presenters when it comes to data gathering and 
analysis. There are systems available today that address the data gathering end of the process but 
analysis is still relatively unsophisticated and labor-intensive. This is where the Automated Video Analysis 
System (AVAS) comes in. 



The AVAS System in Action 

The goal of the AVAS system is to make it easier to analyze the results of a focus group session As soon 
as the presentation is over, the data is ready for analysis. And the client is able to walk away with a video 
tape summary of the results just minutes later. 

Here, briefly, is how the system works: 

Video Digitizing: One of the key elements of the system is its ability to store the presentation on the 
computer in a digital format. The system includes the hardware and software needed to capture the 
presentation video in real time. Converting to a digital form allows the user to match responses to precise 
points in the video, quickly moving to any portion of the video and controlling its playback. 

Data Importing: The system interfaces with existing audience data gathering processes and is flexible 
enough to accommodate a more integrated system in the future. It imports audience response data (by 
variable, over time) and stores it in its own indexed database. 

Max/Min Analysis: When the data import is complete, a Max/Min analysis is performed on each identified 
vanabte (e.g.; male, female, over 50). The top three and bottom three points are calculated and stored for 
each of these vanables. The user can exclude portions of the presentation from this analysis; for example 
the first minute and last two minutes may be unimportant 

The Analysis Interface: The product has a simple interface, as shown in Figure 1 . The user can setup a 
new database for a presentation or open any past database that has been created. There are three 
windows: a Query window that contains the list of variables, a Video window in which the digitized video is 
shown, and a Response window that represents the presentation timeline, shows a graph of responses for 
a variable, and identifies its high and low points. 




Figure 1 - Analysis Interface 

Running a Query: To perform a query, the user selects one or more variables from the list and clicks Run 
Query. By selecting more than one variable, the user is, in effect, creating a new variable; e.g.; selecting 
"Male" and "> 50" creates the new variable "Male \ > 50", which is then listed as a separate variable. As 
the query runs, the responses are graphed over time and the highs and lows are indicated. When the 
graph is complete, a video clip representing the highest response for that variable is automatically played 
in the Video window. 

Freeform Browsing: The user can do freeform browsing and analysis of the responses. By clicking 
anywhere in the Response window timeline, the video moves to that point. The user controls video 
playback by means of VCR-like buttons and can also control the playback volume. 

Summary Tape Creation: The user can create a customized summary tape containing video clips that 
represent the highs and lows for each variable, see Figure 2. The user can select the variables that are 
included and their sequence, the combinations of highs and lows, and the duration of clips. Descriptions of 
each variable can also be included. The summary is constructed and transferred to a local VCR con- 
nected to the system. The result is a concise video summary and analysis of the original presentation. 



; 5 1 y Create Video Synopsis 




Figure 2 - Creating a Summary Tape 



Future Directions 

Among the areas being explored for future versions of the AVAS system are: 

Integrated Data Gathering: We are looking at ways to better integrate the data gathering and analysis 
processes, so the results go directly into a database format rather than through the initial spreadsheet 
format We are also looking into storing results on an individual basis, rather than just across pre- 
defined variables. This would give us an even more exact result for multivariable queries. 

Better Data Exclusion: We want the user to be able to exclude any portion of data from the analysis. 
This will prevent random data-gathering faults from skewing the results. 

Further Automation for Video Digitizing: We would like to make the process of digitizing video as 
automated as possible, which means better integration of the digitizing hardware and the video 
presentation system. 
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Figure 4- New Database 
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